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DEPLOY  is  an  interactive  Goa)  Programming  Model  -for  the 
Rapid  Deployment  o-f  Armed  Forces  which  offers  decisive  advantages 
over  any  current  me thodc 1 cqy .  The  front-end  user-f r i endl y 
package  al  lows  the  user-  to  e  as  i  1y  enter  the  necessary  data  ei  ther 
interactively  or  via  external  files.  Furthermore,  data  files  can 
be  easily  created  and  altered  to  perform  sensitivity  analysis  on 
any  of  the  parameters  in  the  model . 

DEPLOY  accounts  for  both  inter  theater  and  intratheater 
a  i  r  I  i  i- f  ,  and  can  fce  used  to  optimally  plan  movement  schedules  for 
predetermined  forces  or  optimally  choose  and  move  a  force  from  a 


l  i  st 


of  available  units  and  airlift  resources  to  me et  specified 


goal s . 

In 
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,  further  analysis 
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be 

determine 
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~  * 

number  of  aircraft 

or 

the 

a i r  c raft 

i  n 

v  e  n  t  o  r  y 

n  e 
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This  report  describe-  the  physical  and  mathematical, 
scenario  1 i m i tat i on s , and  input  requirements  of  DEPLOY.  Further, 
the  report  includes  a  user  guide,  variable  definitions, 
subroutine  definitions,  and  computer  listings.  The  scenario  used 
to  demonstrate  DEPLOY  used  193  decision  variables  and  126 
separate  equations.  Finally,  this  demonstration  serves  as  an 
example  to  any  potential  users  of  DEPLOY. 


DEPLOY 


An  Interactive 
Goal  Programming  Model 
tor  the 

Rapid  Deployment  o-f  Armed  Forces 

I  .  ln±nocLuc±loii 

In  1984  Army  Captain  James  Cooke,  an  AFIT/6ST  student, 
demonstrated  tor  the  first  time  a  particular  methodology  which 
determines  how  the  interactions  of  unit  weight,  combat 
attributes,  logistics  needs,  and  airlift  resources  can  be  jointly 
optimized. (7,4)  In  his  thesis  he  determined  analytically  the 
optimal  force  mix  or  the  incremental  advantage  in  deployed  power 
attainable  by  an  incremental  change  in  airlift  resources.  The 
thesis  DEPLOY  was  developed  in  response  to  recommendations  in 
Cooke's  thesis  "Optimizing  Force  Development  and  Force  Structure 
for  the  Rapid  Deployment  Force."  (7:ff)  The  thesis  by  Cooke 
originated  from  "a  perceived  need  to  approach  the  deployment  of 
combat  forces  using  a  total  systems  methodology,  rather  than  the 
present  method  of  separate  mission/service  optimization  studies." 
(7:1)  The  model  developed  here  takes  the  methodology 
demonstrated  by  Cooke  and  expands  it  to  an  interactive  user- 
friendly  computer  program.  Furthermore,  this  model  allows  the 
user  to  "generate  un i *  movement  and  force  structure  requirements 
for  the  Rapid  Deployment  Force."  <7:132,*  A  background  section  is 
included  in  this  chapter  to  inform  the  reader  of  the  perceived 
need  for  a  project  like  DEPLOY.  Also  included  are  sections  on  the 
Research  Scope  and  Methodology.  <7:4-8* 
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EiLCkignciunc! 

In  1980,  The  United  States  government  indicated  a  need  for 
the  capability  to  move  large  conventional  ground  -forces  to  any 
location  within  a  broad  geographic  area  centered  on  Southwest 
Asia.  As  a  result  o-f  this  requirement,  the  Rapid  Deployment 
Joint  Task  Force  (RDJTF),  new  redesignated  the  Central  Command 
(CENTCOM),  was  -formed.  This  -force  consists  o-f  the  82nd  Airborne 
Division,  the  101st  Airborne  Division  (Airmobile),  the  24th 
Infantry  Division,  two  Ranger  battalions,  and  Air  Force,  Navy  and 
Marine  -forces.  The  RDJTF  Army  units  are  all  -forces  which 
-facilitate  air  transportability. 

Although  CENTCCM  was  developed  in  direct  response  to  a 
perceived  threat,  the  Air  Force  has  insufficient  aircraft 
resources  to  support  the  full  and  rapid  deployment  of  CENTCOM 
assets.  The  Army,  in  its  deployment  planning,  can  consider  only 
the  inventory  of  the  Military  Airlift  Command  (MAC)  assets.  When 
planning  a  deployment,  therefore,  critical  decisions  must  be  made 
as  to  how  best  to  use  limited  air  transportation.  The  basic 
decision  is  to  increase  the  combat  potential  available  to  the 
0 r o u n d  c omm anders  at  the  risk  of  reducing  sustainability  of  the 
already  deployed  force.  Combat  potential  is  a  complex  and 
current’.  /  sub  j  active  i  ndex  of  the  fighting  capabilities  of  the 
force.  These  capabilities  are  based  on  deployed  troops,  tanks, 
and  artillery.  Sustainability  is  thought  of  as  tne  continued 
ability  of  a  force  to  fight  through  maintenance  of  in  the  event 
its  supply  line. 

The  Army  must  plan  the  deployment  of  its  troops  in  such  a 
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wjv  to  bs! jnce  combat  potential  with  sustainability. 
Current!/,  scenario  war  plans  are  dee  eloped  by  operations 
anai/sts,  who  determine  what  forces  they  believe  are  required  and 
t-  what  date  the  forces  are  needed  for  a  given  scenario. 
Logisticians  then  calculate  required  supplies  to  support  the 
force,  using  tabulated  data.  Given  this  data,  the  transportation 
officers  attempt  t c  move  the  required  force  package s  b y  t h e 
required  dates.  If  this  is  deemed  impossible,  the  force  planners 
either  extend  the  required  due  dates  or  reduce  the  planned  force. 

The  implementation  of  this  process  is  a  result  of  Under 
Secretary  of  Defense  Ch-ayes'  report  requiring  between  50  and  150 
C-5A  equivalents  in  airlift  to  meet  urgent  national  security 
needs.  (3:30)  Limited  airlift  assets  prevent  the  Army  frcm 
moving  all  cargo  and  troops  required  at  a  single  time  to  respond 
to  a  major  threat.  Therefore,  decision  makers  must  be  able  to 
evaluate,  at  each  point  in  time,  how  best  to  use  the  forces  and 
resources-  available.  This  could  be  done  by  incorporating  into 
the  process  the  reduction  of  airlift  resources  caused  by  each 
force  units  "tail",  the  logistical  requirements  of  the  force. 

h ! though  this  is  a  critical  consideration  for  U . S .  planners, 
research  to  date  has  addressed  the  problem  only  peripheral ly. 
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Trier?  are  mode  1  1  imi  tit  ions  and  t  i  me  requirement:?  t  h  a  t  are 

i  mp  ortant  wh  en  u  s  i  n  q  RAP  I  D I  SM  .  AH  significant  limitations  in 
the  model  are  computer  dependent;  therefore,  given  a  computer 
with  enough  core,  limitations  are  reduced  to  nil.  The  time 
c on s i derat i on?  will  be  d i sc u see d  n ow .  Af ter  r e q u ; r  i  n g 

approximate!/  two  weeks  to  acquire  the  data  base,  another  one 
week  to  two  man-months  are  necessary  to  structure  the  data  into 
the  proper  format.  The  computer  time  is  about  1  minute  per  model 
cycle  and  the  model  requires  four  hours  to  two  man-days  to 
analyze  and  evaluate  the  output. 

J  .  EEC.E1UEE:  CblE 

RECEIVER  ONE  was  developed  and  is  used  by  HQ  USAF/'SAGM  five 
times  a  week.  This  model  analyzes  the  problem  of  “airfield 
saturation  during  force  deployment  ."  Each  aircraft  in  the  model 
is  considered  from  the  approach  to  landing  until  the  takeoff 
departure.  Included  also  in  the  model  are  the  possible  effects 
of  weather,  interdiction,  and  air  base  losses.  There  are 
basically  three  input  parameters  for  RECEIVER  ONE. 

1.  Base  characteristics,  such  as  parking  space  and 
amount  of  material  handl i ng  equipment  (MHE) 

2.  Aircraft  characteristics,  such  as  aircraft 
p*  a  y  1  o  a  d 

3.  Average  expected  arrivals  of  each  type  aircraft 
at  each  destination  APOD  (may  change  daily). 
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3 .  Aircraft  elapsed  time s 

4.  Tons  delivered 

5 .  Tons  diverted  from  the  primary  APOD. 

The  model  can  e  <  am i n  e  up  to  seven  different  APCD's  and  twenty 
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level  of  dep I oymen t  activities,  and  bas i  ng  and  readiness  levels 
ot  resources."  (23:515) 

There  are  limitations  to  this  model  and  time  requirements 
that  mu s t  also  be  considered.  Some  limitations  are  that  the 
vehicles  are  -fractionalized  and  all  events  in  the  mode  1  ar e 
deterministic.  Also,  the  cargo  requirement  integrity  is  not 
-aintained  in  the  model  .  This  model  requires  two  weeks  to 
acquire  the  data  base,  and  one  week  to  two  man-months  to 
structure  the  data  into  the  proper  format,  about  40  minutes  to  an 
hour  of  CPU  time  is  required,  and  four  hours  to  two  man-days  are 
necessary  to  analyze  and  evaluate  the  results. 

I  .  Eap.j-d  lu±£ic.±tiea±£E.  £_!_mu-La±.an  lEAElDiSidl 

RAPIDIGM  is  used  by  the  JCS  (J-4>  approximately  260  times  a 
year  and  was.  developed  by  the  General  Research  Corporation.  This 
model  simulates  the  rapid  deployment  of  combat  units  along  with 
the  resupply  of  these  units  for  a  military  contingency  operation. 
E  /  using  this  mode  1,  the  minimum  time  to  deliver  the  units  to 
these  destinations  via  the  air  or  the  sea  is  determined. 
Different  priorities  can  be  assigned  to  the  units  and  supplies. 
The  model  is  deterministic  in  nature.  The  input  parameters  of 
the  model  are  as  follows: 

1.  Available  number  of  aircraft  by  class 

2.  Available  number  of  ships  by  class 

3.  APOEs,  convoy  route,  and  AF’ODs 

4.  Transpor tat i on  modes 

5 .  T i me  peri ods  for  initial  ship  availability 

6.  Commodities  and  units 

7.  Attrition  rate  of  vehicles  (33:539) 

As  a  result  of  this  input,  a  detailed  log  of  movements  and 
numerous  summary  reports  are  produced. 
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3.  Specified  locations  are  aggregated  into  nota¬ 
tion  a  1  locations 

4.  Aircrew  resources  are  not  addressed 

5.  Tanker  aircraft  are  assumed  available  by  the 
mode  1  .  ( 33 : 423 ) 

This  model  requires  only  three  man-hours  to  structure  the  input 
format.  Then  after  about  30  minutes  of  CPU  time  per  90-day  war 
scenario,  6  man-hours  are  necessary  to  analyze  and  evaluate  the 
r  e  s  u  1  t  s  . 

H .  eOSIURE  Sx2.le.rn 

POSTURE  is  used  by  the  JC5  (J-4)  approx imatel /  five  times  a 
year  and  was  developed  by  the  General  Research  Corporation.  This 
mode  1  de  term ines  "the  strategic  mob i 1  i ty  resources  required  for 
contingency  situations  and  assesses  the  delivery  capability  of  a 
given  set  of  resources.”  The  model  accomplishes  this  by 
discovering  the  least-cost  system  to  meet  the  stated 
requirements.  Further,  the  model  can  determine  the  maximum 
deployment  capability  of  a  given  set  of  mobility  resources.  In 
order  to  accomplish  this,  linear  programming  is  utilized.  The 
model  utilizes  land,  air  and  sea  mob i 1 i ty  resources .  The  input 
parameters  are  as  follows: 

1.  Origin/destination  sets  for  force  transfers 

2.  List  resources 

3.  Cost  parameters  for  the  resources 

4.  Time-phased  requirements  by  contingency  and 
unit  type 

5.  Cehicle  characteristics,  speed,  payload 

6.  Allowable  routes  and  route  distances 

7.  Operational  delay  assumptions 

8.  Attrition  factors  <if  used) 

9 .  Convoy  limits  by  theater  and  time  period 

10.  Resource  availability 

11.  Cargo  characteristics. 

The  result  of  this  input  is  a  "10-year  system  cost,  fleet  sizes, 
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G.  MACEQ  Modal  12 


The  MACRO  Model  12  i s  used  by  MAC  Headquarters  and  was 
developed  by  the  MACRO  Task  Force.  The  model  measures  "the  total 
del  i  very  performance  of  the  MAC  system  re-flecting  the  e-f-fects  of 
aircraft  queueing."  Other  e-f-fects  that  are  considered  are: 
station  denial,  air  refueling,  alternate  routing,  various  fleet 

mixes,  and  limited  ground  support.  The  model  is  stochastic  in 

nature  and  uses  G-GERT  simulation  language  as  the  primary 
solution  technique.  The  input  requirements  are  divided  into  four 
different  areas  as  follows: 

1.  Applied  aircraft  (number  and  type) 

2.  Initial  aircraft  availability  schedule 

3.  Cargo  requirements  (f rom-to  by  cargo  class) 

4.  Current  configuration  of  wartime  scenario  (if 
different  from  the  present  configuration). 

From  this  input  the  model  gives  the  following  output: 

1.  Flying  hour  requirements 

2.  Aircraft  UTE  rates 

3.  Route  usage  by  leg  segment 

4.  Aircraft  waiting  times 

5.  Movement  closure  time 

6.  Closure  by  cargo  class  and  aircraft  type 

7.  Delivery  rate  by  cargo  class 

8.  Location  work  load 

9.  Number  of  aircraft  queueing  by  location 

10.  Aircraft  handling  requir  erne  n  t  s 

11.  Ground  time  histograms 

12.  System  onload/offload  history 

13.  Periodic  reports  reflecting  aircraft  and  cargo 
status  by  location  or  various  time  intervals 

14.  Standard  Q-GERT  output  including  trace  options 

15.  Designed  user-specified  output  as  desired.  (33:423) 

There  are  model  limitations  and  time  requirements  that  must 
be  considered  in  using  the  MACRO-12  model .  There  are  five  major 
limitations  to  the  mode  1  as  f o 1  1 ows : 


1.  All  cargo  is  measured  in  terms  of  aircraft 
1  oads 

2 .  The  routing  a  1  gor  i  t hm  i  s  c omp 1 e  t e 1 y  pr  obab i  1  i s t i c 


F  .  tUl-L-t-ar:.*  A_l£±-lj£±  £ap.ab-Ll_Lt;i'  Eslirna  tun  EMAEiLi 

The  Military  Airlift  Capability  Estimator  (MACE)  is  used  by 
the  JCS  (J-4)  and  was  developed  by  MAC.  The  model  assists  the 
transportation  planner  to  quickly  estimate  the  force  closure 
times  for  the  airl ift  of  large-scale  troop  and  cargo  movements. 
The  model  is  used  about  75  times  a  year.  The  input  parameters 
are  three-fold;  force  definitions,  aircraft  ground  time,  and 
different  requirements  such  as  the  distance  between  the  APOD  and 
Aerial  Port  of  Embarkation  (APOE) .  As  a  result  of  this  input, 
the  following  output  is  given: 

1.  Schedule  of  the  daily  movement  capability  of 
the  aircraft  employed 

2.  Closure  times  at  the  destination  of  the  force 
being  moved 

3.  Individual  requi remen t  tracers 

4.  Aircraft  mission  tracer 

5.  Aircraft  utilization  summaries 

6.  Requirement  closure  summaries.  (33:412) 

There  are  limitations  and  time  requirement  problems  that  are 
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1  i  m  i  t  a  t i on 

*  ' 

s  that 

airlift  is 

the  only  mode 

of 

t r  an spor tat i on 

c  on  s 

i der ed. 

Second , 

"ai rcraf  t  can 

be 

prepOb i  t 

i  on e d  for 

the 

first 

acqu i remen  t  on  1 

y,”  after  this, 
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pos  i 

t i oned 

where  needed . 

Third,  the  " 

time- 

phased  processing  of  requirements”  is  not  considered.  Also, 
there  are  several  time  factors  to  be  considered.  After  acquiring 
the  data  base  which  takes  1  man-month,  1-1/2  man-weeks  are 
required  to  structure  the  data  into  the  model  input  format. 
Then,  after  ap pr ox i ma t e 1 y  30  minutes  of  CPU  time,  1-1/2  man-weeks 
are  needed  to  analyze  and  evaluate  the  results.  (33:412) 


has  three  basic  input  parameters  to  the  model . 

1.  Sorties  required  to  move  a  given  unit  by 
different  aircraft  types 

2 .  The  number  and  Utilization  ( UTE  )  rate  of  each 
type  of  aircraft 

3.  The  flight  time  for  a  round  trip. 

As  a  result  of  this  input,  the  model  gives  the  transpor tat i on 
completion  times  of  the  different  cargo  types  and  of  the  entire 
project.  The  model  can  utilize  a  maximum  of  six  different 
aircraft  types,  only  three  of  which  can  be  capable  of  handling 
outsize  cargo.  (23:22?) 

E  .  tirJLA  lido  del  .LAi 

Model  14  was  developed  and  is  used  by  HQ  MAC/XPSR  about  once 
a  month.  The  model  identifies  and  helps  resolve  the  "strategic 
aircraft  chokepoints  at  the  airbase  level  during  wartime  surge 
situations."  The  model  is  a  computer  simulation  of  the  MAC 
system  involving  four  types  of  aircraft  and  422  airbases.  The 
aircraft  are  heur i st i cal  1 y  "routed  to  use  idle  resources  and  to 
avoid  facility  and  personnel  saturation."  There  are  two  main 
input  parameters. 

1.  Station  data,  e.g.,  location,  resources, 
cl  i ma  tol ogy 

2.  Aircraft  operating  envelopes  as  movement 
requirements  and  policies. 

The  output  generated  is  the  raw  form  of  "mission  itineraries, 
requirement  histories,  GASP  statistics,  queueing  files,  and  other 
simulation  information."  From  the  examination  of  this  output 
many  different  types  of  studies  can  be  performed.  This  model 
requires  approximately  two  man-weeks  to  acquire  the  data  base  and 
to  sequence  the  data  into  the  proper  format.  Finally,  one  man- 
week  is  required  to  analyze  the  data.  (33:412) 


analysis  time  are  variable  with  the  sire  o-f  the  problem. 

C .  tLir.  Elajanxoo  XAMPE.I 

The  Air  Movement  Planning  System  (AMPS)  is  used  and  was 
developed  by  the  US  Army  Logistic  Center.  This  model  optimizes  a 
given  load  plan  to  determine  its  feasibility.  It  is  accomplished 
by  planning,  diagramming  and  manifesting  individual  "aircraft 
loads  of  equipment  and  personnel  for  movement  on  C-5,  C-141,  and 
C-130  aircraft."  (33:43)  To  optimize  the  load  plan,  specific 
characteristic,  balance  and  safety  constraints  are  considered. 
There  are  two  input  parameters  into  the  model,  the  cargo  and 
aircraft  list.  The  output  is  a  schematic  of  the  load  plan  and  a 
manifest  of  the  cargo  and  passengers. 

There  are  1 imi tations  and  time  requirements  that  are 
assoc iated  with  the  AMPS  mode  1.  The  first  limitation  is  that  the 
cargo  is  considered  as  cubes  with  a  certain  weight  and  center  of 
gravity,  rather  than  as  a  specific  piece  of  cargo.  As  a  result 
of  this  limitation,  such  characteristics  as  axle  location  and 
vehicle  overhang  are  not  considered.  The  second  limitation  is 
that  the  "vehicle  tie-down  space  is  determined  on  the  worst  case 
basis  rather  than  specifics."  (33:43)  When  considering  the  time 
requirements  for  this  model ,  one  man-month  is  required  to  prepare 
the  data  base  for  the  input  parameters.  Further,  once  the  input 
is  made,  one  hour  of  CPU  time  is  needed  to  determine  the  output. 

D .  DELi'JEE 

The  DELIVER  model  was  developed  and  is  used  by  HQ  USAF/SAGM 
about  250  times  a  month.  The  model  estimates  "the  time  to 
deliver  a  given  military  force  by  airlift  C  by  providing] 
computerized  analysis  of  sortie  output  from  the  ALM . "  The  model 


aircraft."  This  model  is  -further  used  not  only  to  evaluate 
current  and  -future  aircraft  designs  but  also  to  determine  the 
effect  of  changes  in  military  vehicles.  The  model  "determines 
the  number  of  sorties  required  to  load  a  military  force  of  any 
size."  The  input  parameters  are  in  the  form  of  three  input 
files:  vehicle  characteristics,  unit  description,  and  an  overall 

input  file.  These  files  are  further  described  as  follows: 

1.  Vehicle  char ac ter i st i cs  are  dimensions  and 
weight. 

2.  Unit  descriptions  include  the  number  of 
personnel,  weight  of  unit  equipment,  and  the 
number  of  each  type  of  vehicle. 

3.  The  overall  input  file  includes  aircraft 

descriptions,  unit  accompanying  supply 
formulae,  aircraft  loading  sequences, 

selections  of  units,  and  input  and  output 
options. 

The  output  of  this  model  can  give  a  multitude  of  information, 
including  individual  loads  and  "distribution  of  loads  by  weight 
and  aircraft  type."  Furthermore,  the  loadability  of  vehicles  is 
given  along  with  “unit  and  overall  summaries  of  payload  and 
sortie  statistics. "<33:37) 

The  ALM  is  very  versatile  as  it  can  use  a  multitude  of 
different  input  parameters.  The  model  is  limited  to  considering 
10  different  aircraft  types,  999  vehicle  types,  and  1,000  units. 
Each  aircraft  cargo  compartment  can  be  divided  into  ten  different 
sections,  and  “up  to  ten  groups  of  vehicles  can  be  limited  or 
excluded  from  an  a i r c r af t . " < 33 : 37)  Furthermore,  one  type  of 
special  load  can  be  forced  into  any  aircraft  per  load. 

The  time  requirements  to  use  the  ALM  are  variable.  The  CPU 
time  to  run  the  model  on  a  Mechanized  Brigade  requires 
appr ox i mate  1 y  45  seconds.  Both  the  preparation  and  the  output 


As  a  result  of  this  input,  the  model  gives  a  “statement  of 
loadings  of  each  aircraft  by  chalk  number,  consisting  of  a 
detailed  listing  of  each  ''loaded''  aircraft."  Also,  a  summary  is 
given  that  yields  the  following  specific  output: 

1.  Number  of  sorties  required 

2.  Cargo  and  passengers  not  loaded  (i.e.  these 
things  that  are  too  large,  too  heavy,  or 
passengers  for  whom  there  are  no  seats  on 
the  aircraft) 

3.  Number,  weight,  and  floor  space  of  vehicles  and 
bulk  cargo  loaded 

4.  Number  of  passengers  loaded 

5.  Total  fleet  weight,  floor  space,  and  passenger 
seats  that  were  available  for  loading.  (33:29) 

There  are  two  major  limitations  to  this  model.  First,  the 
"sortie  generation"  technique  does  not  necessarily  give  the 
optimal  loading  plan.  As  a  result,  the  number  of  sorties 
required  for  the  mission  is  not  necessarily  a  minimum  estimate. 
Second,  the  possibility  of  using  a  mixed  type  of  fleet  is  not 
available  as  only  one  type  of  aircraft  is  considered. 

When  using  this  model  there  are  a  few  time  requirements  to 
be  considered.  Approximately  one  month  is  required  to  acquire 
the  data  base  for  the  input.  Once  the  data  base  is  finished, 
very  little,  if  any,  work  must  be  done  to  format  the  data  base 
for  the  input.  Once  inputted,  approx i mate  1 y  10  minutes  of  CPU 
time  per  model  is  required  to  compute  the  output.  Finally,  it 
takes  one  man-day  to  analyze  and  evaluate  the  output. 

B .  A_Lnnna.fl  Loading  Mode  1  1A1. ML 

The  Aircraft  Loading  Model  (ALM)  is  used  and  was  developed 
by  USAF/SAGM.  Furthermore,  the  model  is  used  about  100  times  per 
month.  The  purpose  of  the  model  is  to  "provide  computerized 
analysis  of  the  loadability  of  military  vehicles  on  airlift 


I  i  tpratnpp  Rfi.U_L.eiAl 


I  I  . 

This  chapter  will  review  the  different  strategic  deployment 
models  that  are  presently  being  used  in  the  military.  Several 
models  will  be  discussed,  but  the  central  theme  is  the  movement 
of  personnel  and  cargo  via  airl ift.  The  user  and  the  developer 
of  the  model  will  be  discussed  first,  followed  by  the  purpose  and 
description  of  the  model.  Then  the  input  parameters  will  be 
examined  along  with  the  output  statements.  Finally,  the  model 
limitations  and  time  requirements  of  the  model  will  be 
cons i dered. 

A  .  6iccLa£i  Loader.  Model 

The  Aircraft  Loader  Model  is  used  by  the  JCS  (J-4)  and  was 
developed  by  the  Institute  of  Defense  Analysis  (DIA).  The 
purpose  of  the  model  is  to  estimate  “the  number  of  airlift 
aircraft  required  to  perform  a  stated  transport  mission."  To 
accomplish  this  purpose,  the  model  simulates  loading  the 
aircraft.  Further,  this  model  can  be  used  to  plan  operations, 
compare  aircraft  sorties  required  for  different  aircraft  types, 
and  study  alternative  loading  configurations.  Numerical  analysis 
is  used  to  solve  the  mathematics  of  the  model .  This  model  is 
used  approximately  ten  times  per  year.  Some  of  the  input 
parameters  of  the  model  are  as  follows: 

1.  Weight  allowable  cabin  load  (WACL)  for  the 
aircraft  type  and  range  of  operation 

2.  Dimensions  of  the  cargo  compartment 

3.  Number  of  passenger  seats  available 

4.  Allowable  stacking  height  for  the  bulk  cargo 

5.  A  complete  vehicle  and  bulk  cargo  list  with 
their  d i mens i ons 

6.  The  number  of  passengers  and  their  total 
weight. 
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models.  In  each  model  the  input  and  output  parameters  will  be 
examined.  Finally,  prevailing  assumptions  and  approaches  o-f  the 
different  models  will  be  addressed. 

Chapter  III  will  present  the  mathematical  -formulation  o-f  the 
model  utilizing  the  work  o-f  Capt  Cooke  as  much  as  possible.  This 
will  include  the  -formulation  o-f  the  goals  and  constraints. 

Chapter  IV  will  review  goal  programming  and  present  a 
description  o-f  the  assignment  algorithm,  PAGP . 

Chapter-  V  will  present  some  character  i  st  i  cs  o-f  DEPLOY.  This 
will  include  model  restrictions,  scenario  limitations,  and  input 
requirements.  Chapter  VI  will  provide  both  a  verification  and 
a  demonstration  o-f  DEPLOY. 

Chapter  VII  will  present  a  summary  o-f  the  modeling  process, 
a  description  o-f  the  uses  of  DEPLOY,  and  a  discussion  of  the 
potential  improvements  of  the  model. 


variance  -from  them  is  allowable  but  undesirable,  are  the 
f  c  1  cw  i  n  g  : 

1.  Keep  a  certain  -fixed  or  minimum  ratio  between  combat  and 
combat  support  units. 

2.  Keep  unit  sustainability,  as  re-flected  by  percentage  of 
required  supplies  delivered,  at  a  fixed  level. 

3.  Maximize  the  anti-tank  strength,  defensive  frontage  or 
combat  power  of  the  deployed  force. 

4.  Maximize  utilization  of  the  Air  Force  airlift  assets,  in 
tonnage  and  allowable  cubage. 

5.  There  is  a  limit  on  the  number  of  each  type  of  aircraft 
aval  1  a  b 1 e . 

Constraints  which  are  absolute  are  the  following: 

1.  Outsize  cargo  will  fit  only  outsize  capable  aircraft. 
Oversize  cargo  will  fit  on  outsize  aircraft  or  on  oversize 
capable  aircraft.  Bulk  cargo  will  fit  on  all  cargo-carry i ng 
a  i  r  c  r  a  f  t  . 

2.  A  deployed  unit  consumes  supplies  at  a  fixed  rate  over 
the  entire  period  of  analysis. 

3.  A1 1  aircraft  types  are  capable  of  landing  at  the  Aerial 
Port  of  Debarkation  (APOD). 

4 .  Unit  sustainability  has  a  f 1 oor .  United  States  National 
Command  Authority  will  not  build  up  force  strength  at  the  expense 
of  letting  troops  already  deployed  run  out  of  ammunition  or  food. 

5.  Suppl i es  del ivered  to  the  APOD  must  be  trucked  or 
airlifted  to  the  c omba t  forces  at  the  front. 

Eocmai  SicuciucE 

Chapter  II  will  review  many  of  the  currently  used  deployment 
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address  only  air-deployed  and  air-supported  units.  The  close 
presence,  in  a  crisis,  of  logistics  ships  or  Marine  Amphibious 
units  is  -fortuitous,  but  cannot  be  relied  upon  with  worl  dw  i  de 
c  omm i tmen  t  s . 

2.  Once  deployed  into  the  theater,  the  standard  supply 
consumption  rates  will  be  used. 

3.  This  study  will  incorporate  any  type  o-f  military  or 
Civilian  Reserve  Air  Fleet  ( CRAF )  aircraft  to  move  l ENT COM 
asse  t  s . 

4 .  Sustainability  will  be  kept  as  a  constant  measure  acr  oss 
the  entire  deployed  force.  That  is,  all  forces,  if  unsupplied, 
would  run  cut  of  all  supplies  at  the  same  time.  This  is  assumed 
as  a  logical  result  of  proper  logistical  planning,  as  it  would 
not  be  acceptable,  in  combat,  to  run  out  of  ammunition  but  to 
have  ten  days  of  food  available. 

5.  The  input  data  file  may  either  already  exist,  be  created 
interactively,  or  be  changed  interactively  and  saved  if  necessary 
for  later  use . 

Eeseac-ch  tdalhcdalcga: 

The  overall  objective  of  this  study  is  to  develop  DEPLOY,  a 
user-fr i endl y  computer  program  to  maximize  combat  power  del  ivered 
to  a  theater  as  a  function  of  time  without  diminishing  a  certain 
sustainability  of  the  forces  already  deployed.  This  problem  is 
broken  into  two  subordinate  and  equally  important  goals:  maximize 
the  combat  power  delivered,  and  minimize  the  delivery  time. 
These  goals  are  optimized  only  after  certain  constraints  are 
Constraints  which  can  be  expressed  as  goals,  because 


satisfied. 


Mediterranean  Studies  for  the  Strategic  Studies  Institute,  have 
all  separately  proposed  that  immediate  research  be  conducted  on 
this  topic.  (7,18-26) 

Enflblsm  £±a_tanien± 

The  methodology  demonstrated  by  Capt  Cooke  exists  in 
mathematical  -form,  and  is  there-fore  not  immediately  helpful  to 
the  user.  There  is  no  interactive  user-tr i endl y  computer  program 
that  performs  the  kind  of  analysis  demonstrated  by  Capt  Cooke. 

ObJ.ja.c±±i!js 

The  primary  objective  of  this  research  effort  is  to  develop 
an  interactive  user-friendly  computer  program  to  optimize  combat 
power  delivered  to  a  theater  during  a  specified  time,  within 
acceptable  levels  of  force  sustainability.  The  methodology 
demonstrated  by  Capt  Cooke  will  be  examined  concerning  its 
completeness  and  extended  from  its  mathematical  form  to  an 
interactive  computer  program.  This  program  will  be  composed  of 
two  parts,  the  construction  of  constraints  and  the  allocation  of 
deployed  units  with  aircraft.  The  information  necessary  to  build 
the  goals  and  constraints  will  be  input  in  such  a  way  that  the 
user  can  easily  change  parameters  and  goals  as  desired.  The 
allocation  routine,  PAGP,  will  minimize  the  deviations  from  the 
user-defined  goals.  Here,  the  objective  measure  of  merit 

simultaneously  incorporates  unit  weights,  requirements,  combat 
power  attributes,  and  in-theater  constraints  to  find  the  global 
cp  t i ma 1  so  1 u  t i on . 

ResasLCob  Sooips: 

1.  With  the  emphasis  on  rapid  deployment,  this  study  will 


di+ferent  aircraft  types.  In  order  to  create  a  senerio,  eight  to 
ten  man-hours  are  needed,  while  only  one  hour  is  needed  tor 
moderate  changes  in  the  senerio.  Once  the  model  is  complete, 
on!/  cne  to  two  hours  is  needed  to  analyze  the  output.  (33:535) 

K .  £j-mula±loa  f  on  Inansficn±a±xan  Analysis  and  Elannsag  1S1IAE1 

The  SITAP  model  is  used  by  the  JCS  (J-4)  about  50  times  a 
year-  and  was  developed  by  the  Computer  Sciences  Corporation 
(CSC).  This  model  analyzes  a  wide  spectrum  of  transportation 
vehicles  and  uses  a  network  system  to  complete  the  analysis.  The 
“different  movement  demands,  vehicles,  and  defined  network  are 
controlled  oy  the  analyst."  The  input  parameters  are  as  follows: 

1  .  The  network  design 

2.  Vehicle  characteristics  and  movement 

2.  Cargo  description  and  quantities. 

As  a  result  of  this  input  the  following  output  is  given: 

1.  Mean  response  times  between  cargo  ordering  and 
del  i  very 

2.  Cargo  and  vehicle  throughput 

3 .  Resource,  man p owe r ,  and  facility  utilization 

4.  Vehicle  waiting  times,  service  times,  and  i d1 e 
times  for  each  vehicle  type  node. 

All  the  limitations  of  the  rriode  1  are  directly  related  to  the  size 
of  the  computer  .  In  order-  to  adequately  use  the  model  ,  cne  to 
two  man-weeks  are  required  to  acquire  the  data  base,  after  which 
another  man-week  is  needed  to  format  the  data.  After-  the 
computer  run  is  made,  which  may  takes  between  10  minutes  to  60 
minutes  of  CPU  t i me ,  one  hour  to  two  days  are  necessary  to 
analyze  and  evaluate  the  results.  (22:327) 
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The  TRANSMO  Model  was  developed  and  is  used  by  the  US  Army 
Concepts  Analysis  Agency.  The  purpose  of  the  model  "is  to 
determine  the  arrival  time  of  US  forces  in  overseas  theaters  of 
operation."  (33:769)  This  is  accomplished  by  scheduling  the 
deployment  of  forces  with  specified  tr anspor tat i on  vehicles.  The 
input  is  divided  into  three  types  of  characteristics:  force,  lift 
vehicle,  and  general .  The  force  characteristics  include  troop 
strengths,  weights,  origin,  destination,  resupply,  consumption 
and  cargo  type.  The  lift  char ac ter i st i cs  are  the  speed,  load  and 
unload  times,  and  capacity  for  each  type  of  cargo.  Finally,  the 
general  characteristics  involved  are  port  restrictions,  distances 
between  ports,  and  attrition  factors.  The  output  of  the  model 
provides  a  detailed  summary  of  the  deployment  schedule.  To 
utilize  TRANSMO,  one  week  is  needed  to  acquire  the  data  base  and 
two  man-weeks  to  transform  the  data  into  the  proper  input  format. 
Then  after  about  15  minutes  of  CPU  time,  one  man-week  is 
necessary  to  analyze  and  evaluate  the  output. 

Eximmajoa: 

In  this  chapter  the  different  strategic  deployment  models 
have  been  reviewed.  Though  many  models  exist  concerning  the 
deployment  of  forces,  none  meet  the  objective  of  this  research 
project.  This  is  so  for  many  reasons.  First,  the  models  are 
response  oriented,  as  the  specific  units  and  the  order  of  their 
deployment  is  determined  previously.  Second,  the  models  do  not 
address  the  problem  of  transhipping  the  supplies  to  the  combat 
units  forward  of  the  APOD. (5:22).  Third,  the  port  capability  of 
the  APOD  in  receiving  the  intertheater  shipments  is  not  examined. 


Finally,  none  o-f  the  models  use  goal  programming  to  optimize  the 
amount  o-f  del  i  vered  combat  power.  There-fore,  none  o-f  the  exist¬ 
ing  deployment  models  adequately  addresses  the  objective  o-f  this 


proj  ec  t  . 
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In  this  chapter  the  mathematical  expressions  of  the  goals 
and  constraints  used  in  the  model  will  be  developed.  These  goals 
and  constraints  are  taken  -from  the  thesis  o-f  Cap  t  .  Cooke  and  are 
adjusted  to  the  -form  used  in  the  computer  program.  Any 
differences  between  the  two  will  be  discussed  in  -full  detail. 
Frier  to  developing  the  goals  and  constraints,  the  variables, 
multipliers  and  subscripts  will  be  de-fined.  Next,  the  goals 
foil  owed  by  the  constraints  will  be  derived.  Foil ow i nq  each 
constraint  will  be  the  number  of  that  type  constraint  necessary 
for  the  mode  1  .  Finally,  a  summary  wh ich  will  contain  all  the 
goals  and  constraints  in  their  mathematical  expression  will  be 
given. 

Llatxahlfi  Eacamaiats 

The  definition  of  the  parameters  will  be  discussed  prior  to 
the  presentation  of  the  model  that  was  developed  by  Capt.  Cooke. 
(4:46-76)  The  variables  are  defined  as  follows: 

Var i abl es  used : 

X(  i  ,  j  ,  k  ,  1  )  :  the  number-  of  delivered  aircraft  1  oads . 

C AC/PERIOD 3 

P(k,l):  slack  and  surplus  variables  used  in  the  equality 

constrai nts. 

U(y,m,l):  the  number  of  units  deployed.  [UNITS/PERIOD] 

SI :  the  amount  of  suppl ies  transshipped  in  period  1  from  the 
APOD  to  the  front.  [TONS/PERI OD] 

Subscr i p  ts  used: 


a:  the  APOD. 


range  is  from  1  to  I .  The 


l 


i 


i 


: 

i 


i 


i 


i:  a  specific  type  o-f  aircraft, 

aircraft  are  identified  by  the  user. 

j:  a  specific  type  of  mission,  range  is  from  1  to  J.  In 

this  model  the  missions  are  divided  into  four  areas  as 

follows:  1  =  direct  delivery,  2  =  APOD  delivery,  3  = 

intratheater  delivery,  and  4  =  airborne  del i very. 

k:  a  specific  type  of  cargo,  range  is  from  1  to  K.  Here, 
the  cargo  is  divided  into  five  categories  as  follows: 
l=outsize,  2=oversize,  3=Dulk,  4=passengers  only,  and 
5=supplies  (considered  to  be  bulk  size  cargo). 

1:  a  specific  period,  range  is  from  1  to  L. 

m:  the  mode  of  delivery,  range  is  from  1  to  M.  Here,  the 
mode  is  divided  into  three  methods  as  follows: 
l=de livery  to  the  front,  2=de 1 i very  via  the  APOD  and 

remain  at  the  APOD  or  move  to  the  front  on  their  own, 

and  3=de 1 i very  to  the  APOD  and  move  to  the  front  via 
intratheater  airlift. 

y :  a  specific  type  of  unit,  range  is  from  1  to  Y .  The  uni  ts 
are  identified  by  the  user.  The  first  Y"  are  all  those 
units  deployed  at  the  front. 

Mu ltipliers  used: 

AB<y>:  the  airborne  capability  indicator  for  unit  type  y. 

The  value  is  either  0  or  1. 

AT (y):  the  anti-tank  capability  of  type  y  unit  expressed  in 

equivalent  TOEs . 

A'v'A  I  L  (  i  >  :  the  avail  ab  ility  of  type  i  aircraft. 

CI<y):  the  Combat  Indicator:  1  if  a  combat  unit,  -1  if  a 

combat  support  unit,  and  0  if  neither  a  combat  or  combat 
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support  unit. 

CPI  (  1  )  :  the  combat  power  index  -for  arriving  at  the  -front  in 

period  1 . 

DAPDFT :  the  distance  between  the  APOD  and  the  -front.  [KM] 

DUSAPD:  the  distance  between  the  US  and  the  APOD.  [KM3 

DUSFRT :  the  distance  between  the  US  and  the  -front.  [KM] 

EA5(i,k):  the  standardizing  -factor  for  the  MHE  required  to 

unload  aircraft  type  i  with  type  k  cargo. 

FLT<y):  the  -front  line  trace  capability  o-f  type  y  unit.  [KM] 

FF'(y):  the  -firepower  capability  o-f  type  y  unit. 

GAT (  1  )  :  the  desired  goal  -for  anti-tank  power  by  period  1. 

[TOE] 

GFLT  <  1  )  :  the  des  i  red  goal  -for  -fron  t  line  trace  by  per  i  od  1  . 

[KM] 

6FP< 1 ) :  the  desired  goal  For  combat  power  by  period  1. 

GT ( i ) :  the  ground  time  for  type  i  aircraft  to  offload, 
upload,  and/or  refuel .  [H0UR3/AC] 

Ha:  the  material  handling  equipment  capacity  in  pallet 
equivalents  existing  at  the  AF'OD  prior  to  the 
deployment.  [PALLETS/DAY] 

Hf :  the  same  as  Ha,  but  for  the  front.  [ PALLETS/DAY] 

INTER( i > :  the  number  of  days  required  between  inter  theater 

missions.  [ DAYS] 

I  NT  R A ( i  )  :  the  number  of  days  required  between  intratheater 

missions.  [ DAYS] 

KARG ( i , k ) :  the  cargo  capacity  of  type  i  aircraft  with  type  k 
cargo.  [TONS/AC] 
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MHE(  i  >  :  the  pallet  capacity  o-f  type  i  aircra-ft.  [PALLETS] 

My:  the  movement  time  required  by  a  unit  to  go  -from  the  APOD 
to  the  front  by  ground  transportation,  rounded  to  the 
nearest  integer.  [PERIODS] 

L:  the  number  of  periods  considered  in  the  model . 

NPAL :  the  number  of  Pallet  Equivalents  (PE)  that  an  ALCE 

unit  can  manage  in  one  day .[ PALLETS/DAY] 

NF'RK(  i  )  :  the  number  of  type  i  aircraft  that  can  park  on  the 
ramp  of  the  APOD.  [AC3 

NF'K(y):  the  number  of  type  y  unit  fighter  aircraft  that  can 
park  on  the  ramp  of  the  APOD.  [AC3 
NTAC(y):  the  number  of  fighter  aircraft  assigned  to  type  y 

unit.  [AC/UNIT] 

NUM( i ) :  the  number  of  type  i  aircraft  in  the  inventory.  [AC] 
PL:  the  number  of  days  in  one  period.  [DAYS/PERI0D3 
RC:  the  number  of  pallets  the  Army  Riggers  can  prepare  per 

day.  [PALLETS/DAY] 

SPD<  i  )  :  the  no-wind  cruise  speed  of  type  i  aircraft.  [KM/HF;] 
TON(y,k):  the  amount  of  tonnage  to  move  for  type  y  unit  of 

type  k  cargo.  [TON 3/ UNIT] 

T0N(y,5):  the  supply  consumption  rate  of  type  y  unit. 

[TONS/UNIT/DAY] 

TRP( y ) :  the  ton -mileage  capability  for  the  transportation  of 
supplies  to  the  front  for  type  y  unit. 
[ TON*M I LES/UN I T/DAY ] 

TL'L(y):  the  amount  of  distance  that  type  y  unit  can  move  in 

one  day.  [KM/DAY] 

UNIT(y):  the  number  of  type  y  units  available.  [UNITS] 
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i  aircraft  on  a  type 


UTE<  i  ,  j  )  :  the  utilization  rate  -for  type 
j  mission.  [  HRS/'  DAY  ] 

Goals 

All  combat  attributes  are  not  "mutually  rein -forcing",  as 
some  attributes  are  very  effective  in  one  area,  but  ineffective 
i n  other  areas.  If  the  attributes  were  "mutually  reinforcing", 
then  the  objective  could  be  met  by  simply  deploying  as  much  of 
the  combat  attributes  as  possible  without  regard  to  the  type  of 
units  deployed.  This  is  not  the  case,  therefore  decisions  need 
to  be  made  to  balance  the  different  units  deployed.  An  aircraft 
squadron  is  a  good  example.  Here,  the  aircraft  are  very 
effective  at  interdiction,  but  ineffective  at  maintaining 
terrain.  The  objective  of  this  program  is  to  meet  the 
"requirements  or  specified  goals"  of  the  decision  maker,  and  then 
to  "maximize  specific  force  attributes."  Goal  programming 
accomplishes  this  objective  effectively,  and  is  therefore 
utilized  to  meet  the  goals  and  force  attributes. 

The  goals  chosen  to  represent  combat  power  are  anti-tank 
(  AT  >  capability,  defensive  frontage  (front  line  trace  or  FLT )  , 
and  firepower  (FP).  The  first  two  goals  do  not  depend  upon  time, 
while  the  last  goal  does  depend  upon  time.  The  time-dependent 
variable  implements  a  concept  described  in  the  1981  Congres¬ 
sional  1 y  Mandated  Mobility  Study.  (27:30)  This  concept  proves 
that  a  small  force  delivered  in  the  right  place  can  be  up  to  six 
times  more  effective  than  the  same  size  force  delivered  at  a 
later  time.  The  time-i ndependen  t  goals  will  be  discussed 
first,  fell  owed  t/  the  time-dependent  goal.  (5:50-6) 


Included  in  the  time-independent  goals  are  the  anti-tank 
<AT>  and  defensive  frontage  (FLT)  goals.  Since  the  anti-tank  (AT; 
goals  are  independent  of  time,  the  amount  of  combat  power  each 
unit  contributes  is  related  onl/  to  the  type  of  unit  and  the 

number  of  units  deployed.  Therefore,  given  the  multiplier  AT ( y >  , 
which  represents  the  amount  of  anti-tank  potential  a  specific 

unit  exhibits,  the  following  expression  represents  the  total 
anti-tank  potential  at  time  period  1',  assuming  no  attrition  of 
units,  for  a  given  mode  of  tr anspcr tat i on : 

Y'  3  1  •' 

r  £  Z  AT ( y )  *  U(y ,m, 1 ) 
y= 1  m= 1  1=1 

The  expression  would  be  accurate  if  the  units  are  delivered  to 
the  front  and  are  available  to  act  in  combat  upon  arrival.  Not 
all  deliveries  are  made  to  the  front  by  direct  delivery,  though. 
For  units  that  arrive  at  the  APOD,  there  are  two  means  by  which 

they  can  be  del ivered  to  the  front.  The  first  way  is  through 

se 1 f-de 1 i very  (m=2) .  That  is,  each  unit  has  the  capability  to 
move  itself  by  means  that  are  organic  to  the  unit.  The  second 
way  for  a  unit  to  arrive  to  the  front  is  through  intratheater 
a i r 1  i f  t  (m=3>  .  Each  of  these  means  will  be  discussed  separately. 

Se 1 f-de 1 i very  to  the  front  <m=2>  is  the  ability  of  a  unit 
to  move  itself  from  one  point  to  another  point  without  the 
assistance  of  another  unit.  When  considering  this  mode  of 
travel,  the  t i me -d i stance  relationship  must  be  considered  before 
the  unit  can  be  considered  "closed  to  the  combat  area."  This 
concept,  "closed  to  the  combat  area,"  means  that  the  unit  is 
available  to  the  ground  commander  to  engage  in  action  as  needed. 
Therefore,  all  units  delivered  to  the  APOD  are  no1  considered  as 
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contributing  to  the  anti-tank  potential  until  the  unit  has 
“closed".  To  consider  this  situation,  "M /"  is  defined  as  the 
closest  integer  of  the  distance  from  the  APOD  to  the  front 
<  DAPDFT )  divided  by  the  distance  the  particular  unit  can  travel 
in  one  day  (TL'LCy))  times  the  period  length  (PL)  considered. 

My=  MINT  [DAPDFT  /  CTOL (y>  *  PL>] 

[di  s  1 1  /  {  [  d  i  st/day]  *[  days/per  i  od]  )=p  er  i  ods 
The  function  MINT  calculates  the  closest  integer  of  the 
expression.  Therefore,  concerning  se 1 f-de 1 i very  to  the  front 
from  the  APOD,  the  left-hand  side  (LHS)  of  the  constraint  is  as 
f  o  1  1  cuts  : 

Y'  1  '-My 

r  r  AT  <  y  >  *  U ( y , 2 , 1  > 

y=l  1=1 

Intratheater  airlift  <m=3>  is  the  airlift  within  a 
particular  theater  of  operations.  The  time-distance  relationship 
is  not  considered  because  the  flying  time  from  the  APOD  to  the 
front  is  assumed  to  be  short  with  respect  to  the  length  of  time 
per  period.  Therefore,  given  that  troops  and  equipment  are 
available  at  the  APOD,  the  following  expression  gives  the  LHS  of 
the  constraint: 

y,  J  / 

/2  H  AT  (  y )  *  U  (  y  ,  3 , 1  ) 
y=l  1=1 

Finally,  some  units  at  the  AFOD  may  possess  anti-tank 
potential  and  must  be  considered.  A  fighter  squadron  at  the  AF’OD 
is  an  example  of  such  a  unit.  Units  assigned  to  the  APOD  are 
assumed  to  be  shipped  only  to  the  APOD.  That  is,  a  unit  destined 
tor  the  APOD  would  not  be  shipped  to  the  front  either  by  direct 
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or  airborne  deliver/  and  then  require  transportation  to  the  APOD. 
As  a  result  ot  this,  the  time  distance  relationship  between  the 
APOD  and  the  -front  is  not  considered.  Therefore  ,  the  -following 
expression  considers  units  at  the  APOD  that  contribute  to  the 
total  anti-tank  power  deployed: 

Y  1  ' 

Z  Z  AT  •,y'<  *  IK  y,  2,1  > 

y=Y  + 1  1-1 

When  all  o-f  these  left  hand  sides  are  summed,  the  result  is 
the  total  amoun t  of  anti-tank  p ewe r  deployed  by  time  period  1/. 
Therefore,  given  the  fact  that  GAT ( 1 ' )  is  the  amount  of  anti-tank 
p owe r  oesired  by  peri od  1  '  ,  the  foil ow i n q  is  the  ma t h ema t i c a  1 
expression  of  the  goal  : 

Y '  1'  Y'  l'-My 

xll  Z  Z  AT  <  y )  *  U  <  y  ,  m  ,  1  )  +  Z  Z  AT  (y)  *  U(y,2,l> 
y= 1  1  =  1  m= 1  ,  3  y— 1  1—1 

Y  1  ' 

+  H  Z  AT  <  y )  *  IK  y,  2,1)  >=  GAT  (  1  '  ) 

y=Y " + 1  1-1 

In  the  above  expression,  direct  delivery  (m=l>  and  intratheater 
del i very  (m— 3)  are  expressed  in  the  first  term.  The  second 
summation  includes  front  units  delivered  to  the  APOD  and  able  to 
move  to  the  front  independently.  Finally,  the  third  summation 
includes,  the  units  assigned  to  the  APOD.  ( 5 : 53 ) 

The  defensive  frontage  <FLT)  goal  is  developed  in  the  same 
f  ash  ion  as  the  an  t i - t  ank  < AT)  goal  .  The  mu  1  t i p 1  i er  FTL( y)  is 
used  to  represent  the  amount  of  defensive  frontage  a  specific 
unit  contributes  to  the  goa 1  .  Therefore,  the  e  x  p  r  e  s  s i on 


representing  the  desired  amount  of  defensive  frontage  <FLT>  by 
period  1 '  i s  as  follows: 

Y '  1 '  Y'  1 ' -My 

n  r  r  FLTCy)  *  U<y,m,l>  +  z  FLT  <  y )  *  LK  y ,  2 , 1  ) 

y= 1  1=1  m= 1,3  y= 1  1 = 1 

Y  1  y 

+  Z  H  FLT(y)  *  LK  y  ,  2 , 1  >  >=  GFLT(l') 

y=Y ' + 1  1=1 

The  third  goal  to  be  discussed  is  firepower.  The  only 

difference  between  this  goal  and  the  previously  mentioned  goals 
is  that  the  firepower  goal  is  time-dependent.  This  means  that 
the  worth  of  the  same  amount  of  firepower  will  change  over  time. 
If,  though,  the  time-dependent  portion  of  the  goal  is  represented 
by  a  multiplier,  then  fi repower  would  be  similar  to  the  other 

goals  with  the  exception  of  the  time-dependent  multiplier.  This 

time-dependent  multiplier  is  defined  as  the  combat  power  index 
CP  I < I >  ,  and  is  dependent  upon  the  period  that  the  unit  is  "closed 
on  the  combat  arena."  The  term  FP(y)  is  the  amount  of  firepower 
a  specific  unit  contributes  to  the  overall  goal.  Therefore,  the 
expression  for  the  desired  amount  of  firepower  by  period  ]'  is  as 
foil ows : 

Y'  1  ' 

Z  Z  Z  CPI(l)  *  FP(  y  )  *  IK  y  ,m  ,  1  ) 

y= 1  1=1  m= 1 , 3 

Y'  1 ' -My 

+  L  II  CFI  (  1  +My >  *  FP<y)  *  U(y,2,l) 
y= 1  1=1 

Y  1  ' 

+  IT  Z.  CFI(l)  *  FP(y)  *  U(  y ,  2 , 1  )  >=  GFP<  1  '  ) 

y=Y ' + 1  1=1 

Cooke  does  not  adjust  the  time-dependent  index  to  reflect  the 
tr an sd or ta t i on  delay  from  the  APOD  to  the  front.  An  adjustment 
is  made  here  though  because  the  index  should  reflect  when  the 
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unit  is  available  -for  combat,  not  when  it  arrives  at  the  APuD . 
(5:55) 

The  three  types  of  goals  used  to  measure  combat  power  are 
anti-tank,  defensive  frontage,  and  firepower  capability.  The 
first  two  goals  are  not  dependent  upon  time,  while  the  third  goal 
is  tine-dependent.  All  three  goals  were  derived  and  are  similar 
with  the  exception  of  the  firepower  goal.  This  goal  was  modified 
to  include  an  add i  t i on  a  1  mu ltiplier  to  represent  the  ti me - 
dependent  portion  of  the  goal .  Next,  the  factors  which  constrain 
the  attainment  of  these  goals  will  be  examined  in  detail. 


The  different  sets  of  constraints  that  limit  the  attainment 
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6j.ooo:a_fd:  :  The  limitation  of  aircraft  is  divided 
into  two  sets  of  constraints,  aircraft  availability  and  average 
utilization  rates.  The  first  constraint  set  will  deal  with  the 
number  of  missions  possible  from  the  number  of  aircraft  in  the 
Air  Force  inventory  and  their  respective  availability  to 
participate  in  the  deployment.  Then  the  second  constraint  set 
gives  the  number  of  missions  anticipated  given  the  expected 
number  of  hours  per  day  the  aircraft  will  be  available  to  fly 
mi  s  s i o  n  s . 


I 


.1 


I 


I 
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The 


constraint  set  will  reflect 


the 


number  o  -f 


1  .  The  first 

aircraft  sorties  dependent  upon  the  number  of  aircraft  available 
and  their  availability  rates.  An  important  factor  here  is  the 
portion  of  a  day  that  is  required  between  1  ike  missions.  Because 
most  of  the  inter  theater  missions  would  require  more  than  one 
day,  but  less  than  two  days  for  a  round  trip,  there  is  some 
overflow  from  the  previous  day.  Therefore,  the  following 
e x press i o n  sat i sf ac  tor i  1 y  explains  the  number  of  sortie s 
available  for  a  deployment: 

2,4  K 

I  n  ter  (  i  )  *  2d  H  X ■'  i  , . j  ,  k  ,  1  > 

j=l  k=i 

K 

+  Intra(i)  *  12  X(i,3,k,l)  <=  NUM< i )  *  AUAIL(i)  *  PL 

k=i 

There  is  no  overflow  considered  between  periods.  Cooke  considers 
the  overflow  between  periods  in  his  model  because  his  period  is 
equal  to  one  da/.  The  period  length  in  DEPLOY  is  significantly 
larger  than  the  Inter-;  i  )  term  so  real  i  sro  is  maintained  by  not 
considering  overflew  between  periods.  There  is  one  constraint 
per  aircraft  type  per  period,  or  a  total  of  <I*L). 

2.  This  set  of  constraints  considers  the  number  of  aircraft 
sorties  in  relationship  to  the  expected  utilization  <  UTE )  rate. 
The  UTE  rate  is  "commonly  used  to  define  airlift  capability" 
(12:7),  and  is  the  "fleetwide  average  flying  hours  per  day  per 
aircraft."  The  aver  age  number  of  sorties  the  fleet  of  a 
parti  •:  u  1  ar  type  of  aircraft  can  be  expected  to  f  1  y  in  a  period  i  s 
as  f  o  ’  I  :  : 


I  K 


1=1  k=i 


KARG <  i  ,5)  *  X<  i  ,4,5, 1 >  -  P ( 5 , 1  - 1 >  +  P ( 5 , 1  >  =  RC  *  PL 


There  is  one  constraint  per  period,  or  L  constraints. 

Rummany 

In  this  chapter,  the  mathematical  expressions  tor  the  goals 
and  constraints  that  are  used  in  the  model  have  been  derived. 
The  ma.j  or  i  t  y  o-f  the  expressions  were  taken  -from  the  thesis  of 
Cap t  Cooke  with  only  a  few  minor  changes.  In  addition,  the 
variables,  subscripts,  multipliers  and  other  terms  used  in  the 
model  were  defined.  Finally,  a  summary  of  the  constraints  is 
given  with  the  total  number  of  constraints  that  are  in  the  mode  1  : 
Goals-Time  Independent 
Ant i -tank 

Y '  1  ■'  Y '  1  •'  -My 

C.  r  H  AT  (  y )  *  U  (  y  ,  m  ,  1  )  +  53  "Z.  AT  (  y )  *  U  (  y  ,  2 , 1  ) 

y=!  1=1  m= 1,3  y=l  1=1 


A  T  AT ( y )  *  U  < y , 2 , 1  ) 

y=Y  +1  1=1 


GAT ( 1  '  ) 


One  for  e  ach  goal  . 


Front  Line  Trace 


<'  1'  Y'  l'-My 

n  n  r.  FLT  <  y )  *  U<y,m,l>  +  >  >  FLTCy)  *  U(y,2,l> 

y = 1  1=1  m= 1,3  y= 1  1=1 


FLT  <  y  >  *  LK  y  ,  2 , 1  /  —  GFLT  <  1  '  ) 


One  for  each 


support  unit.  This  term  adds  one  constraint  to  the  problem. 
(5:71) 

2.  A  common  example  of  a  unit  linkage  floor  is  "the 
relationship  between  combat  units  and  combat  service  support 
units,  such  as  headquarters  tHGil  units."  One  way  to  express  at 
least  a  1  to  5  ratio  of  HQ '  s  units  to  ba ttalion  units  is: 

cmbt  -  5HQ  <=  0. 

A  problem  with  this  is  that,  in  the  initial  deployment,  a  HQ  unit 
must  precede  the  combat  battalion.  This  is  clearly  not  desired 
in  the  mode  1  cr  reality.  A  better  expression  is, 

cmbt  -  3HQ  <  =  2. 

Here  two  combat  units  could  deploy  before  a  HQ  unit  is  required. 
Furthermore,  one  HQ  unit  could  handle  a  maximum  of  five 
ba  1 1  a  1  i on  s ,  and  two  HG  units  could  ma intain  up  to  eight 
battalions.  This  expression  conforms  more  accurately  to  the 
present  doctrine  and  practice.  As  a  result,  this  expression 
“would  add  one  constraint  for  each  linkage  between  combat  units 
and  other  type  of  units."  (5:72) 

b-D-L-i  6bu-i.j-±J.jas :  Un  it  abilities  is  the  last  set  of 
constraints  to  be  examined.  Here  the  airdrop  capability  is 
limited  by  the  personnel  responsible  for  the  preparation  of  loads 
for  the  airdrop.  Mathematically  this  is  expressed  as, 

I  K 

T  T.  KARG(  i  ,  5)  *  X<i,4,k,l>  <=  RC  *  PL 
i=l  k=l 

As  in  the  case  of  the  shipment  of  units,  the  previous 
period's  surplus,  P(5,l-1),  and  the  present  period's  surplus, 
F(5,l),  change  the  constraint  to  be  an  equality. 


a;  in  the  last  constraint,  only  the  -first  Y '  units  are  deployed 
at  the  -front  while  the  remainder  ( Y' + 1 , . . . , Y)  are  deployed  at  the 
APOD.  There  is  one  constraint  per  period  or  a  total  o-f  L 
constraints.  (5:70) 

L'ii-l  ±  I  i  nkage  :  This  section  describes  certain  ceilings  and 
-floors  o-f  the  particular  units  deployed  in  relation  to  other 
units  dep  1  oye  d .  When  considering  its  ceiling,  more  o-f  a 
particular  unit  cannot  be  deployed  without  a  corresponding 
increase  in  another  type  o-f  unit.  Conversely,  a  -f  1  oor  requires 
the  deployment  o-f  a  particular  unit  in  order  -for  another  unit  to 
increase  the  number  that  are  deployed.  Both  o-f  these  terms  keep 
certain  units  in  a  particular  predetermined  ratio.  First  a 
speci-fic  case  o-f  a  ceiling  will  be  discussed,  -followed  by  an 
ex  amp  1 e  of  a  f 1 oor . 

1.  An  example  of  a  ceiling  is  "the  deployment  of  combat 
support  arms  such  as  artillery,  requiring  a  minimum  number  of 
combat  units  to  be  deployed  before  more  follow-on  artillery"  are 
deployed.  In  order  to  keep  the  ratio  between  combat  designated 
units  and  combat  support  units  in  at  least  a  one-to-one  ratio, 
the  foil cw ing  expression  is  used: 

Y  3  L 

H  E  H  CKy)  *  U<y,m,l)  >=  0. 
y= 1  m= 1  1=1 

Here,  the  multipliers  C I ( y )  are  c omba t  indicator  v ar i  abl es  to 
distinguish  between  combat,  combat  support,  and  other  units,  and 
are  given  the  values  1,  -1,  and  0  respectively.  The  first  two 
types  are  self  explanatory.  An  example  of  an  "other"  unit  would 
be  the  ALCE  as  it  is  considered  neither  a  combat  nor  a  combat 


I 

n  E  KARG( i  , 5)  *  X(i,j,5,1'>  +  31  +  P  <  5 , 1  " - 1  ‘  ■ 
i=l  j  =  1  ,  4 


Y '  3  1 '-1 

-  H  53  E  PL  *  T  ON  <  y  ,  5  >  *  U<y,m,l>  -  P(5,l)  =  0. 

y= 1  m= 1  1=1 

and 

1 

Z  KARG< i ,5)  *  X( i ,3,5 , 1 ' ) 
i  =1 

Y  31" -My 

+  H  E  E  [ TRP<  y  >  *  PL3/1 2  *  DAPDFT ]  *  U<y,m,l)  >=  31 
y= 1  m= 1  1=1 

There  are  two  constraints  per-  period  or  a  total  o-f  2*L 
constraints.  (5:33-9) 

3.  The  constraint  c f  supplies  for  the  APOD  will  be 
discussed  in  this  section.  As  in  all  the  other  cases,  supply 
must  equal  or  exceed  the  requirements  of  the  deployed  units. 
Supplies  that  come  into  the  APOD  are  either  consumed  by  local 
deployed  units  or  shipped  to  the  front  by  deployed  truck  units  or 
intratheater  aircraft  missions.  The  supply  constraint,  then,  is 
the  sum  of  the  suppl  ies  del  ivered  to  the  APOD,  plus  the  surplus- 
supplies  from  the  previous  period,  minus  that  which  is  consumed 
at  the  APOD,  minus-  suppl  ies  transshipped  to  the  front,  and  minus 
the  excess  supply  for  the  period.  The  result  is  as  follows: 


E  KARO < i  , 5)  *  X< i  ,2,5, 1 ' >  +  P<5,1'-1)  -31  -3(5,1') 

i  =  1 

Y  1  '  -  1 

-  r  E  PL  *  T ON  (  y  ,  5  >  *  IK  y  ,  2 , 1  >  =  0. 

y=Y ' + 1  1=1 

The  31  term  relates  to  the  previous  supply  constraint  at  the 
front  and  is  the  amount  that  is  sent  forward  to  the  front.  Also, 


0—0  0 


L_  i-  KARG(  i,5)  *  X(  i  ,  j  ,  5 , 1  '  ) 
i =1  j  =  l , 3 

Y  31' -My 

+  Z  r  r  [ TRP ( y )  *  PL3/E2  *  DAFDFT3  *  U<y,m,l) 

y= 1  m=l  1=1 

Y'  3  l'-l 

-  E  E  £  PL  *  T  GN  <  y  ,  5  )  *  U(y,m,l)  >=  0. 

y= 1  m=l  1=1 

Another  constraint  must  be  added  to  the  above  expression  tc 
ensure  that  aircraft  and  trucks  do  not  ship  supplies  that  are  not 
ava i 1 abl e  at  the  APOD .  By  letting  SI  equal  the  supplies 

transshipped  during  period  1,  the  parameter  is  limited  to  the 
capacity  of  the  transshipment  pipeline.  This  is  similar  tc 
stating  that  the  actual  amount  suppl i ed  cannot  exceed  the 

capability  of  moving  supplies  to  the  front  from  the  APOD.  Here, 
the  variable  TRP<y)  functions  as  an  indicator  variable,  in  that 
if  the  unit  considered  is  not  a  t r anspor t a t i on  unit,  the  value  is 
zero.  The  expression  for  period  1'  is  then  as  follows: 


Z  KARG  < i  , 5 )  *X(i,3,5,1") 
i  =  1 

Y  31' -My 

+  Z  ST  Z  tTRPCy)  *  PL3/1 2  *  DAFDFT 3  *  U<y,m,l)  >=  SI 
y=l  m=l  1=1 

Furthermore,  the  value  of  SI  must  be  less  than  or  equal  to  the 
amount  of  supplies  left  over  at  the  APOD.  This  additional 
constraint  will  be  discussed  further  in  the  constraints  o-f 


suppl  les  for  the  APOD.  Therefore,  the  final  constraints  wher 
considering  slack  and  surplus  variables  are  as  follows: 
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deliveries  <  j  =  1  J)  ,  intratheater  missions  (  j  =  3)  ,  and  air  bor  n  e 
deliveries  (j=4>.  Mathematically,  this  is  expressed  as  -follows: 

I  4 

r  27  KARG  (  i  ,5)  *  X< i , j ,5, 1 > 
i =1  J=l,3 

When  considering  the  transportation  o-f  supplies  via  truck, 
the  time-distance  relationship  must  be  considered  along  with  the 
unit/s  capability  of  moving  supplies.  Each  unit  has  an  input 
parameter  of  the  number  of  ton-miles  the  unit  can  move  per  day 
CTRP(y)].  A  combat  unit  though  is  normally  given  a  parameter 
equal  to  zero.  This  means  that  the  combat  unit  can  only  move 
supplies  from  its  rear  area  to  its  front.  The  f  o 1 1 ow i ng 
expression  determines  the  number  of  tons  a  uni t  can  move  in  one 
peri od . 

[TRP<  y )  *  PL]  /  C2  *  DAPDFTJ 

C tcn-m i 1 es/day 1  *  C days/per i od]  /  [miles]  =  [tons/period] 

The  two  in  the  denominator  reflects  the  round  trip  distance  from 
the  APOD  to  the  front.  Therefore,  the  total  tonnage  shipped  via 
truck  is  as  follows: 

Y  31" -My 

53  £  Z  CTRP<  y)  *  PL  ]/[  2  *  DAF’DFT  ]  *  U(y,m,l) 

y= 1  m= 1  1=1 

By  combining  the  expressions  for  the  amount  of  suppl ies 
brought  to  the  front  and  subtracting  the  consumption  of  the 
supplies  by  the  units  deployed  to  the  front,  the  resulting 
expression  is  formed: 


> 


J 


■for  the  remainder  of  the  period.  Therefore,  given  the  parameter 
T  ON  C  y , 5  >  as  the  daily  consumption  rate  of  a  specific  unit,  the 
supply  constraint  for  period  1'  is: 

I  2,4 

£  £  KARGC i , 5)  *  X< i , j , 5 , 1 ' >  +  P<5,1'-1> 

i =1  j=l 

Y  3  1 '-1 

-  £  £  r  TON ( y , 5 )  *  PL  *  U(y,m,l)  -  P<5,1')  =  0. 

y=l  m= 1  1=1 

Here  P(5,l ')  represents  the  surplus  supplies  shipped  in  the  l'th 
period,  while  P(5,l'-1)  is  the  surplus  carried  forward  from  the 
previous  period.  Again,  it  is  assumed  here  that  each  unit  upon 
its  deployment  has  sufficient  supplies  to  sustain  itself  for  the 
remainder  of  the  period.  There  is  one  constraint  for  each  period 
or  L  constraints.  <5:67> 

2.  Here,  the  constraints  to  ensure  adequate  supplies  reach 
the  front  are  discussed.  Every  unit  not  based  at  the  APOD  is 
considered  to  consume  its  supplies  at  the  front.  In  other  words, 
all  the  units  with  the  exception  of  the  APOD-ALCE,  the  fighter 
squadrons  and  the  transportation  units  consume  their  supplies  at 
the  front.  In  the  file  that  contains  the  information  on  the 
different  units,  the  first  Y'  units  are  deployed  to  the  front, 
while  the  others  are  deployed  to  the  APOD.  Delivery  to  the 
front  can  take  place  by  one  of  four  means; 

a.  direct  delivery, 

b.  airborne  delivery, 

c.  tr anspor tat i on  via  intratheater  airlift,  and 

d.  transshipment  via  truck. 

The  last  means  of  delivery,  by  truck,  will  be  discussed 
separately.  The  expression  of  the  total  amount  of  supplies 
delivered  by  airlift  is  simply  the  sum  of  the  number  of  direct 


it  the  unit  is  not  airborne  capable.  The  expression  then 
bee ome  5  , 


E  KARG <  i  ,  k  >  *  X  <  i  ,  4  ,  k  ,  1  )  -  Z1  AB  (  y  >  *  TON  C  y  ,  k  >  *  U  (  y  ,  1  , 1  ) 

i  =  1  Y- 1 


+  p  ( k  ,  l  - 1 )  -  F  <  k  ,  1  >  =  0  . 

Once  aqain,  there  is  one  constraint  -for  each  period  and  cargo 
type,  or  L*K  (K~4>  constraints.  (5:66) 

Sh-Lfimen-i.  o£  Supplies:  Suppl  les  are  included  in  a  sepai  ate 
classification  (k=5>,  and  are  used  to  describe  the  aggregate 
needs  to  sustain  a  unit.  There  fore,  once  units  are  delivered  to 
the  theater,  there  is  a  requirement  to  sustain  the  unit  with  a 
certain  tonnage  of  supplies.  Therefore ,  the  input  must  equal  or 
exceed  the  consumption  of  supplies  by  the  deployed  units.  Three 
different  sections  will  be  discussed  concerning  this  issue.  The 
first  section  will  insure  that  there  are  adequate  supplies 
delivered  to  the  theater  to  meet  the  needs  of  all  the  different 
units  in  the  theater.  Then,  the  second  section  will  insure  that 
the  necessary  supplies  reach  the  units  deployed  to  the  front. 
Finally,  the  last  section  will  insure  adequate  supplies  are 
available  for  the  units  based  at  the  APOD.  Each  of  these 
sections  will  be  examined  in  turn. 

1  .  The  requ i remen  t  f  or  intertheater  supplies  is  very 
similar  to  the  shipment  of  units  previously  mentioned.  There  is 
one  differ  er.ee  though;  all  the  units  that  have  "closed"  in  tne 
previous  periods  are  those  receiving  the  supplies.  The  supplies 
are  del i vered  only  for  the  units  deployed  in  the  previous  periods 
because  it  is  assumed  that  each  deployed  unit  has  enough  supplies 


I 

ST  KARG (  i  ,  k  >  *  X  (  i  ,  2  ,  k  ,  1  ) 
i  =  l 


Y  3 

-  Z  T  T ON (  y  ,  k  >  *  U<  /  , rri ,  1  )  >=  0 
y= 1  m=2 

However,  because  excess  cargo  [  P  <  k  ,  1  )  ]  or  earl/  cargo  CP<k,l— la] 

must  also  be  considered,  these  variables  should  also  be  included 

in  the  constraint. 

I  Y  3 

H  KARG  (  i  ,  k  )  *  X(i,2,k,l)  -  £1  XT  TON ( y , k )  *  U(y,m,l) 

i=l  y=l  m=2 

+  F  <  k  ,  1  —  1  )  -  P  (  k  ,  1  )  =  0  . 

Finally,  to  ensure  that  cargo  moved  to  the  APOD  reaches  the 
■front,  an  additional  constraint  is  added: 

I  Y 

Z  KARG(  i  , k )  *  X<  i  , 3 , k , 1  )  -  Z  TON(y,k)  *  LK  y , 3  1)  >=  0 

i = 1  y= 1 

There  are  two  constraints  -for  each  period  and  cargo  size,  or  L*K 
<K=4>  constraints.  (5:65-6) 

2.  The  shipment  o-f  units  to  the  -front  via  direct  delivery 
is  very  similar  to  the  shipment  o-f  units  to  the  APOD.  Therefore, 
the  expression  to  indicate  the  closure  of  units  to  the  front  by 
direct  delivery  is: 

I  Y ' 

H  KARG<  i  ,k)  *  X(  i  ,  1  ,k  ,  1  )  -  Z  [ l-AB(y) ]  *  TON(y,k)  *  U(y, 1  , 1  ) 
i=l  y= 1 

+  P ( k , 1  - 1 )  -  P(k , 1 )  =  0 . 

As  before,  there  is  one  constraint  for  each  period  and  cargo 
type,  or  L*K  (K=4)  constraints.  (5:66) 

3.  The  shipment  of  units  to  the  front  via  airdrop  is  also 
similar  to  the  previous  constraint  with  one  minor  difference.  To 
insure  that  only  airborne  capable  units  are  delivered,  an 
indicator  variable  AB(y)  is  necessary.  The  value  of  AB(y)  is 
equal  to  one  if  the  unit  is  airborne  capable,  or  is  equal  to  zero 


3-1  S 


arriving  first:  to  APOD  and  then  transporting  themselves  to  the 
•front.  I  f  the  ALCE  units  were  unable  to  move  themselves,  the 
third  summation  would  not  exist.  There  is  one  constraint  per 
period  -for  both  the  APOD  and  the  -front,  or  2*L  constraints. 
<5:63-4) 

JJoj.±  L  i  mj.±^±l.on :  The  number  of  units  shipped  is  obviously 
limited  by  the  number  of  units  available.  Therefore ,  this 
constraint  is  simply  expressed  as  the  following: 

3  L 

H  r  U  <  y  ,  m  ,  1  )  <=  UN  I T  <  y )  . 
m=l  1=1 

There  is  one  constraint  for-  each  type  of  unit,  or  a  total  of  Y 
constraints.  <5:64) 

3hu-p.aie.n_i  q£  L'nlhs. :  This  section  will  discuss  the  three 
different  ways  that  units  can  be  shipped  into  the  theater.  These 
three  ways  are  via  the  APOD,  airborne  delivery,  and  direct 
del i very . 

1.  The  delivery  completion  time  for  the  units  to  the  APOD 
is  examined  in  this  section.  When  a  unit  is  transported  in  its 
entirety,  the  unit  is  said  to  be  "closed."  All  fighter  aircraft 
squadrons,  and  transportation  units  are  assumed  to  be  delivered 
and  assigned  to  the  APOD.  ALCE  units  are  unique  in  that  they  are 
assigned  to  either  the  front  or  the  AFOD.  Each  unit  is 
described  in  terms  of  personnel  and  outsize,  oversize  and  bulk 
tonnage.  Therefore,  the  unit  cannot  be  "closed"  until  all  the 
personnel  and  tonnage  of  each  type  of  cargo  for  the  unit  is 
delivered.  The  mathematical  expression  of  this  is  as  follows: 


pallet  equivalents  that  an  ALCE  unit  can  download  in  one  day. 
Since  the  period  he^e  spans  many  days,  an  arbitrary  term  o-f  less 
than  one  is  multiplied  by  the  number  o-f  newly  arriving  ALCE 
units.  The  multiplier  in  this  case  is  one-half.  This  will  more 
closely  approximate  the  additional  assistance  gained  from  the 
newly  arriving  ALCE  units  than  if  the  periods  were  treated 
similar  to  a  single  day.  Finally,  because  the  number  of  aircraft 
"moving  through  the  APOD  must  not  be  greater  than  the 
capabilities  at  the  airport  to  unload  them",  the  following 
constraints  for  period  1'  are  established: 

For  the  APOD: 

I  K 

Z  Z  E  EAS  <  i  ,  k )  *  MHE  (  i  )  *X<i,j,k,l'> 

i-l  j=2 , 3  k=l 

1  ' -1 

r  NPAL  *  PL  *  U< ALCE, 2,1) 

1=1 

-  .5  *  NPAL  *  PL  *  U< ALCE, 2,1 ' )  <=  Ha  *  PL 

For  the  front : 

I  K 

Z2  Z.  E  EAS<  i  ,  k  >  *MHE(i>  *  X< i , j , k , 1 ' > 

i = 1  j=l ,3  k=l 

1  '~l 

-EE  NPAL  *  PL  *  IK ALCE-FRONT ,m , 1  > 

1 = 1  m= 1 , 3 

1  '  -My 

E  NPAL  *  PL  *  IK  ALCE— FRONT, 2, 1 ) 

1=1 

E  ■ 5  *  NPAL  *  PL  *  U< ALCE-FRONT, m, 1 ' >  <=  Hf  *  PL 

m=  1  ,  3 

Concerning  the  constraints  at  the  front,  the  second  summation 
considers  the  ALCE  units  arriving  either  by  direct  or 


intratheater  del i very. 


The  third  summation,  considers  ALCE  units 


A  special  situation  to  consider  here  is  the  case  of  -fighters 
assigned  to  the  APCD.  If  this  is  the  circumstance,  the  fighters 
must  be  assured  available  ramp  space  at  all  times.  Therefore,  by 
combining  this  constraint  to  the  previous  constraint,  the  result 
is  as  foil ows : 

I  3  K 

T.  H  X <  i  ,  j  , k  ,  1  >  *  GT (  i  )  /  [PL  *  NPRK<  i  >  *  241 
i =1  j=2  k  =  l 

Y 

+  £  IK  y  ,  2 , 1  )  *  NTAC(y)  /  [PL  *  NPK<y)3  <=  1. 

y=Y ' + 1 

[uni t s/per i odl *[ AC/un it]*[24hrs3/([days/period]*[AC]*[ 24hr s/day ] > 
The  24  in  the  numerator  and  the  denominator  cancel  out,  but  the 
units  are  important  to  show  the  relationships  between  the 
variables.  There  is  one  constraint  for  each  period  considered, 
or  a  total  of  L  constraints.  (5:<£.2-3> 

2.  This  section  reviews  the  constraints  of  material 
handling  equipment  (MHE)  at  the  APOD  and  front.  The  time  to  off¬ 
load  an  aircraft  is  dependent  upon  the  number  of  pallets  the 
aircraft  can  hold  and  the  type  of  cargo  being  off-loaded.  The 
number  of  pallets  an  aircraft  can  hold  (NPAL)  is  easily 
determined,  while  the  relative  ease  with  wh i c h  these  pallets  are 
offloaded  is  not.  Therefore,  the  variable  EASC i  , k  >  measures  the 
relative  ease  with  which  pallets  for  type  i  aircraft  with  type  k 
cargo  can  be  off-loaded.  If  all  the  aircraft  and  cargo  can  be 
removed  with  the  same  ease,  the  variables  are  all  ®qual  to  one. 
The  resources  available  to  download  the  aircraft  are  the  MHE 
available  prior  to  the  deployment  (Ha  for  the  APOD  and  Hf  for  the 
front;,  and  the  ALCE  with  its  "ancillary  port  improvement 
packages"  (ARAL).  The  variable  ARAL  measures  the  number  of 
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considers  the  amount  of  ramp  parking  space  available  -for  the 
aircraft  at  the  AFOD .  The  second  constraint  of  MHE  will 
interface  with  the  capability  to  unload  an  aircraft  once  it  has 
arrived  at  the  APOD  or  front. 

1.  This  set  of  constraints  considers  the  limited  amount  of 
ramp  space  available  at  the  APOD.  A  linear  relationship  is 
assumed  between  the  area  required  for  different  type  of  aircraft. 
Specifically,  if  the  ramp  is  sufficient  to  park  a  total  of  48  F- 
16's  or  12  C-130's,  the  ramp  is  also  sufficient  to  park  24  F-16's 


<=t  n  d  Cj 

C- 130's,  or 

any  convex 

comb i nat  i 

on  thereof . 

Th  i  s 

appr ox i mat i on  is  adequate  for  most 

"airfield 

s  except 

very 

smal  1 

f i el ds 

with  end-point 

sol u  t i ons  to 

parking  1 

i  m  i  t  a  t  i  on 

s .  " 

Here  a 

1  arge 

aircraft  could 

block  off  a 

t  ax i way  or 

runway 

from 

other 

aircraft.  Normally  though,  this  is  not  a  problem  because  APOD's 
are  normally  not  "chosen  at  minimally  capable  terminals."  (5:61) 
The  parameter  which  considers  ramp  space  is  parking-space 
required  per  unit  time  for  each  type  of  aircraft.  Here,  it  is 
assumed  the  aircraft  is  unloaded  and  serviced  within  the  planned 
ground  time  < GT < i > ) .  This  parameter  is  constrained  as  follows: 

I  3  K 

r  H  £  X (  i  ,  j  ,  k  ,  1  )  *  GT <  i  )  /  C  PL  *  NPRKC  i  )  *  24]  <=  1. 

i  =  i  j  =2  k= l 

C AC/per i od] *  1 hrs3/( [ days/per i od] *[ AC] *[ hrs/day] ) 

Here,  j  is  summed  only  over  the  missions  that  transit  the  APOD. 
Also,  all  the  units  for  the  terms  are  cancelled  out,  leaving  a 
unitless  constraint.  When  the  left  hand  side  of  the  constraint 


i  :  equal  to  one,  the  ramp  space  is  completely  saturated. 


[  PL 


*  LITE  i,  j  -  *  NUM<  i  )  *  SFD(i)]  /  £2  *  DUSAPDj  . 

[  di/3/per-  i  cd  *  hour  s/da/  *  aircraft  *  Km/h  our  1/1  km  3  = 

a i rcraf t/per i c  d 


The  number 

"  2 "  in 

the 

denom i nator 

reflects  the  aspect  of  a 

round 

trip,  the 

total 

d  i 

stance  flown.  UJhen  considering 

on  1 

y  the 

aircraft  that  are 

involved  in  the 

deployment,  anc  not 

the 

entire 

fleet  of 

a  parti 

I  c  u  1 

ar  aircraft, 

the  above  express i on 

mu 

st 

be 

mu  1  tipi  led 

b  y  the 

percentage 

of  the  aircraft  that 

w  i 

1  1 

be 

available  in  the  deployment.  Cooke  does  not  include  this  last 


factor  , 

bu  t 

should,  as  without  it,  he  is 

say i ng  that 

al  1 

the 

f  1  y  i  n  g 

t  i  me 

for  a  particular  aircraft  type 

i s  consumed 

by 

the 

a i rcraf t  in  the  dep 1 oymen  t  . 

[PL  *  UTE<  i  ,  j>  *  N'JM  (  i  )  *  AVAIL  (  i  )  *  SPD<  i  >  3  /  £2  *  DUSAPDj. 
Cdays/period  *  hours/da/  *  aircraft  *  V.  *  km/hour  ]/£  km]  = 

a  i  rcraf  t/per i od 

Therefore,  the  average  number  of  a  specific  aircraft  that  will 
fly  in  a  given  period  must  be  less  than  or  equal  to  the  above 
expression.  By  rearranging  seme  of  the  terms  and  summing  over 
the  missions  and  cargo,  the  following  constraint  is  developed: 

J  K 

id  H  Cl  /UTE  <  i  ,  j  >  ]  *  X  <  i  ,  j  ,  k  ,  1  '  ) 
j=l  k=l 

<=  [PL  *  NUM( i )  *  AVAIL(i)  *  SPD< i ) ]  /  £2  *  DUSAPD] 


C o ok  e 

uses  a  standardizing 

f  ac 

tor- 

to  con 

vert  a  i 

r  c  r 

aft  of  the 

sa.rne  type 

,  flying  different  mi 

on  s 

to  an 

equ i v a  1 

lent 

number  of 

sorties  f 

or  the  respective  mi 

3  3  i 

on  . 

The 

ratio 

U  5 

ed  is  as 

foil ews : 

[  D  i  stance  other]  /  [  D  i  s  t  an  c  e  f  r  om  the  US  t  o  AF'GB  ] 
This  ratio  shows  that  there  are  more  sorties  available 


Fire  Power 


Y '  1  ' 

E  £  E  CP  1(1)  *  F P ( / )  *  U ( y , m , 1 ) 
y=  1  1=1  .71=  1  ,  3 

Y'  1 '-My 

+  E  Z  CPI ( 1 +My)  *  FP(y)  *  U< y , 2 , 1 ) 
y=l  1=1 

Y  1  ' 

+  E  E  CPI<1>  *  FP<y>  *  LK  y  ,  2 , 1  )  >=  6FPU") 

y=Y '  + 1  1=1 


Aircraft  Sorties 


One  -for  each  goal  . 


2,4  K 

InterC  i  >  *  E  E  X( i  ,  j  ,k,  1 ) 

j=l  K=1 


+  Intra(i)  *  E  X(i,3,k,l)  <=  NUM< i )  *  AVAIL(i)  *  PL 

k=l 


One  for-  each  aircraft  type  and  period, 


Aircraft  LITE  Rate 


E  £  1  1/UTE<  i  ,  j  >  ]  *  C  DUSFRT/r'USAPD3  *  X< i  ,  j  ,  k  ,  1 y > 

k= 1  j=l ,4 


+  E  [ 1 /UTE < i  , 2 ) 3  *  X  < i  , 2 , k , 1 ' ) 

k=l 


+  £  C 1 /UTE  < i  , 3  > ]  *  [ DAPDFT/DUSAPD ]  *  X < i  , 3 , k , 1 " ) 

k=l 

<=  [PL  *  NUM( i )  *  AVAILCi)  *  SPD< i ) 3  /  C2  *  DUSAPD] 


Airport  Ramp  Space 


One  for  each  aircraft  type  and  period. 


I  3  K 

E  E  E  X <  i  ,  j  ,  k  ,  1  )  *  GT<  i  )  /  1PL  *  NPRKv i  )  *  24] 
i = 1  j  =2  k  =  l 


+  X  LK  y ,  2 , 1  )  *  NTAC(y)  /  C  PL  *  NFKCy)]  <=  1. 

y=Y  ■'  + 1 


One  for  each  period. 


A i r p  cr  t  MHE 


For  the  APOD: 

I  K 

Z  Z  >  EAS<  i  ,  k  )  *MHE(i>  *  X <  i  ,  j  ,  k  ,  1  '  ) 

i=l  j—2 , 3  k=l 

1  '  -1 

Z  NPAL  *  PL  *  LK ALCE ,2,1) 

1=1 

-  .5  *  NPAL  *  PL  *  LK ALCE, 2,1 ')  <=  Ha  *  PL 

For  the  -front: 

I  K 

Z  Z  Z  EAS  (  i  ,  k )  *  MHE<  i  >  *  X< i  ,  j  ,k  ,  1 ' ) 

i = 1  j=l ,3  k=l 

1  '-1 

Z  Z  NPAL  *  PL  *  LK ALCE-FRONT, m, 1 ) 

1=1  m= 1 , 3 

1  '  -My 

£  NPAL  *  PL  *  LK ALCE-FRONT ,2,1) 

1=1 

Z  .5  *  NPAL  *  PL  *  U< ALCE-FRONT, m, 1 ' )  <=  Hf  *  PL 

m=  1,3 

One  -for  each  period. 

Unit  Limitation 

3  L 

rr  E.  U<  y ,m  ,  1 >  <=  UNIT(y). 
m=l  1=1 

One  for  each  deployable  unit  type. 
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Shipment  o+  Units  tc  the  APQu 

I  Y  3 

Z  KARG <  i  ,  k )  *X<i,2,k,l>  -  Z  T-  TON(y,k)  *U<y,m,l> 
i  =  l  y= 1  m=2 

+  P<k , 1 -1 )  -  P(k  ,  1 )  =  0  . 


I  Y 

Z  KARG<i,k>  *  X< i , 3 , k , 1 >  -  52  TON(y,k)  *  U<y,3,l>  >=  0 

i  =  l  y= 1 


Two  for  each  period  and  cargo  size. 


Shipment  of  Units  via  Direct  Delivery 


I  Y' 

Z  KARGC  i  , k  >  *X<i,l,k,1)  -  Z  tl-AB(y)]  *TON<y,k)  *U<y,l,1> 
i =1  y=l 

+  P  <  k  ,  1  - 1  >  -  P  <  k  ,  1  )  =  0  . 

One  for  each  period  and  cargo  size. 
Shipment  of  Units  via  Airdrop 

I  Y' 

Z  KARGCi.k)  *  X ( i , 4 , k , 1 )  -  £  AB(y>  *TON<y,k>  *U<y,l,l> 

i=l  y=l 


+  P(k  ,  l -l )  -  p(k , l)  =  0 . 
One  for  each  period  and  cargo  size. 


Theater  Supplies 


I  2,4 

Z  X.  KARG  (  i  ,5)  *X(i,j,5,l')  +P<5,1'-1> 
i =1  j=l 


y— 1  m= 1  1=1 


T ON <  y  ,  5 )  *  PL  *  U<  y  ,m  ,  1  )  -  P<  5 , 1  '  >  =  0. 


One  for  each  period. 


Front-Line  Suppl i  es 


I 

F  E  KARG< i ,5)  *  X ( i , j , 5 , 1 ' )  +  SI  +  P<5,1'-1> 
i=l  j  =  l,4 


Y '  3  1  '  - 1 

E  E  E  PL  *  T ON <  y  ,  5 )  *  U< y ,m , 1 )  -  P< 5 , 1 >  =  0. 
y=  1  m= 1  1=1 

and 

I 

E  KARG< i ,5)  *  X( i , 3 , 5 , 1 ' ) 
i  =1 

Y  3  l '-My 

+  E  E  E  tTRP(y)  *  PL3/t  2  *  DAPDFT ]  *  U<y,m,l>  > 
y= 1  m= 1  1=1 

One  -for  each  period. 

APOD  Suppl i es 
I 

E  KARC-K  i  ,  5)  *X<i,2,5,1'>  +  P<5,1'-1>  -  SI  -  P<5,1") 

i  =1 

Y  1  ■'  -1 

-  E  E  PL  *  TON  <  y , 5 )  *  U<y,2,l>  =  0. 

y=Y'+l  1=1 

One  -for  each  period. 

Link  o-f  Combat  and  Combat  Support 

Y  3  L 

E  E  E  Cl <  y )  *  U<  y ,m , 1 )  >=  0. 

y= 1  m= 1  1=1 

One  . 

Link  o-f  Units  and  HQ's  Units 

cmbt  -  3KQ  <=  2. 


One  -for  each  HQ's  Unit. 


R i gger  Cap ab i  1  i  ty 
I  K 

E  r  KARG<  i  ,5)  *  X< i ,4,5, 1 )  -  P  <  5 , 1  - i >  +  P  <  5 , 1  >  =  RC  *  PL 
i =1  k=l 

One  -for  each  period. 

The  upper  limit  -for  the  total  number  o-f  aircra-ft  variables 
is  I  *  J  *  K  *  L ,  wh  Me  -for  the  unit  variables  it  is  Y  *  M. 
However,  because  many  o-f  the  combinations  are  nonexistant,  the 
number  o-f  actual  variables  necessary  is  considerably  less  than 
the  upper  limit.  The  number  o-f  equations  from  the  constraints, 
in  order,  is  #  Gcals  +  2<I*L>  +  3L  +  Y  +  4<L*K>  +  4L  +  1  +  #HQs 
+  L,  or  #  Goals  +  #  HGs  +  2<I*L>  +  4(L*K>  +  8L  +  Y  +  1. 
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DEPLOY  i  s 

AH 

inter  active  goal 

pr  ogr *rr<m i 

ng  me 

de !  for 

the 

r  a 

pic  dep 1 oymen t 

Q-f 

armed  forces.  The 

p  r  o  Cf  r  aim 

Fr-lGF 

( Par  t i  t i 

on  :  n  g 

A  1 
H  i 

cor i thm  for  ( 

3oa1 

Pr ogr amm i n  g )  is 

used  for  th 

e  all  oc 

at  i  on 

r ou t i n e . < 3 : 37S-86 >  This  chapter  will  discuss  goal  pr  ogr  amin  .  nc 
( G  F )  in  general  along  with  its  relationship  to  linear  pr  ;gr  amm  i  r  g 
( LF > .  As  a  result,  this  chapter  will  serve  as  an  introduction  to 
those  not  fami  1  i  an  wi  th  GP  and  act  as  a  review  to  those  who  are 
well  acquainted  with  GP .  Then  in  the  second  section,  the  PAGr 
program  wi 1 1  be  examined  as  to  why  i t  was  chosen  and  the 
efficiencies  assoc  lated  with  it.  F'AGP  was  acquired  f  r  cm  the 
Association  tor  Computing  Machinery  (ACM)  and,  because  it  is 
copyrighted,  cannot  be  used  tor  commercial  use  without 
p  erm i ss i on . 

Goal  Ec.c,gc.atLiiixo.g 

Linear  Programming  (Lr )  is  a  very  powerful  and  useful  tool , 
but  its  "major  criticism  ...  is  that  only  one  objective  is 
permittee."  (12:353)  When  only  one  objective  is  used,  the  "goals 
must  be  measured  on  a  common  scale."  (12:358)  Often  though, 
decision  makers  are  confronted  with  more  than  one  objective  such 
as  maximizing  total  profits  or  minimizing  total  costs.  A  few  cf 
the  many  objectives  may  be  improving  the  workers'  morale,  paying 
div idends  to  the  stockholders,  and  meeting  the  consumers'  needs. 
All  of  these  objectives  would  be  very  difficult  to  put  on  a 
common  scale.  This  is  certainly  true  when  considering  the  rapid 
deployment  of  armed  forces.  Here,  the  objective  is  to  maximize 
delivered  combat  power  without  jeopardizing  the  sustainability  of 


the  deployed  forces.  the  problem  with  using  LP  is  that  combat 
pews'-  cannot  be  expressed  on  a  common  scale,  but  rather  is 
measured  in  relationship  to  the  amount  o-f  anti-tank  power,  -front 
line  trace  and  -firepower  a  specific  unit  projects.  Goal 
Programming  <GP>  can  manage  multiple  object i yes  and  for  this 
reason  is  used  for  the  general  allocation  routine. 

In  discussing  GP ,  the  set-up  process  and  the  assignment 
process  will  be  explained,  followed  by  the  mathematical 
e.  pres  si  on.  Each  objective  must  be  formulated  with  a  specified 
numerical  goal  in  the  set-up  process.  This  is  similar  to  the 
objective  function  in  LF  except  the  desired  level  or  outcome  of 
tre  objective  must  be  specified.  Next,  the  assignment  of  values 
to  the  decision  variables  is  such  that  the  weighted  sum  of  the 
deviation  variables  from  the  objective  function's  Goal  is 
minimized.  (3:172)  Mathematically  this  is  expressed  as, 

min  f  =  2T  L  P  (  k  )  *  W< i  , k )  *  d  (  i  f"  +  P  (  s )  *  UK  i  ,  s )  *  d  (  i  )  ] 


j  =  l 


M<  i  ,  j >  *  X ( j  >  +  d< i )  -  d <  i  y  =  g <  i  )  i  =  1  ,  . . . , p 


J  =  . 


i  , j  >  *  X< j  >  <=  b < i )  i =pf 1  ,  .  .  .  ,  p+m 

-r  _i.'  : 


X  v j )  , c  (  I  )  , d (  i ) >=  0  j  = 1  ,  .  .  .  , n ;  i  =  1  , .  .  .  , p  (12:371) 

The  -first  summation  is  the  weighted  sum  of  deviations  from  the 
objective  function.  Here,  the  UK  i  , k )  is  the  assigned  weight  of 
the  deviation  variable  d( i )  for  priority  k,  while  the  P's  are  the 
prior . ty  factors  of  the  specific  priority.  By  assigning  weights 
to  the  dev i at  j n  variables,  it  is  possible  to  prioritize  the 


goals  within  the  same  level.  These  variables  will  be  discussed 
more  extensively  in  the  -following  paragraphs.  The  second 
summation  is  the  goal  objectives  with  “g(  i  )"  being  the  speci-fied 
level  o-f  goal  "i".  Finally,  the  last  summation  is  the  normal 
constraints  similar  to  those  -found  in  an  LP  problem. 

The  priority  -factors  are  also  called  preemptive-priority 
-factors.  This  indicates  that  “any  goal  at  preemp  t  i  ve-pr  i  or  i  ty  k 
(designated  P(K)>  will  always  be  preferred  to  (i.e.,  preempt)  any 
goal  at  a  lower  priority  k+l,...,K,  regardless  o-f  any  scalar 
multiplier  UK  i  ,  k  V*-  or  UK  i  ,  k associated  with  these  lower 
priorities."  (4:57)  To  understand  the  preemptive  aspect, 
consider,  for  example,  a  possible  decision  process  of  selecting  a 


house 

to 

buy . 

Suppose 

the  buyer's  fir 

st  pr i or i ty 

is  that 

the 

house 

be  within 

a  1  0 -m i  1  e 

radius  from  hi 

s  place  of 

work  . 

A 1  1 

home  s 

that 

1  i  e 

outside  the  10-mile  radi 

us  are  not 

considered. 

Me::  t  , 

suppose 

the  buyer 

wants  to  cons 

i der  on  1 y 

houses 

under 

$120,000.  As  a  result,  even  though  houses  less  than  $120,000  may 
exist  outside  the  10-mile  radius,  they  are  not  considered  and 
"are  excluded  tor  preempted)  from  consideration  by  the  first 
priority."  (4:57)  Therefore,  "the  preemptive-priority  concept  is 
used  in  the  decision  analysis  as  an  iterative  screening  process." 
( 9 : 280-81 ) 

The  final  factors  to  be  discussed  are  the  deviation 
variables.  These  variables  are  defined  as  either  positive  or 
negative  deviation  variables.  Further,  they  provide  a  means  to 
measure  both  the  underachievement  and  over ach i evemen t  of  a  goal. 

& /  m i n i m i c i n  q  either 


one  or  both,  the  goal  is  defined  as  either  a 


C0  i  i  inQ,  t  f.  cor  cr  $ ^ u ci .  i  t  y  .  ;  n  a  to  i  i  cw  ?  n q  c n *r  t  =  p •? c  i  ■f  \  *  =  wn  ;  o r? 

variable  to  minimize  tor  a  specific  goal  . 

GP  Form:  f  <  i  )  +  d(  i  >  -  d(  i  >^"  =  g<  i  ) 

f  <  i  >  <=  g  <  i  >  :  ceiling  minimize  d  <  i  , 

f  <  i  >  —  g<  i  )  :  equal  i  ty  minimize  d<  i  >**"  &  d*.  i  >  ,  cr 

f ( i )  >=  g < i >  :  floor  minimize  u ( i ) ~  ( ? : 377 > 

The  deviation  variables,  therefore,  are  used  to  measure  the 

amount  that  the  goals  differ  from  what  is  desired. 

In  this  section,  the  difficulty  associated  with  LF  was 
discussed  along  wi th  how  GF  compensates  by  being  able  to  manage 
multiple  objectives.  Then,  the  capability  of  6P  was  related  to 
the  need  of  DEPLOY,  managing  multiple  objective  functions.  In 
addition,  the  setup  and  assignment  processes  were  examined  along 
with  the  mathematical  expression  of  GP .  Finally,  the  functions 
of  the  priority  factors  and  deviation  variables  were  discussed. 
EAGE 

The  F'AGF  routine  was  chosen  among  other  routines  for  several 
reasons,  including  its  ability  to  efficiently  allocate  resources. 
First,  the  program  had  proved  itself  as  an  efficient  allocation 
routine  in  a  nuclear  exchange  model  <BRIK>  by  Capts.  Bunnell  and 
Tackacs.  <4 : 66,69)  PAGP  could  also  be  employed  as  a  subroutine 
in  DEPLOY  and  therefore  increase  the  portabil i ty  of  the  model  by 
not  teing  bound  to  a  necessary  1 i brary  routine.  in  addition  to 
this,  PAGF  has  been  shown  to  be  more  efficient  than  one  of  the 
other  popular  GF  packages  done  by  Lee.  (3:381-84)  The  key  to 
PAGP's  efficiencies  is  that  the  goal  constraints  are  partitioned, 
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The  partitioning  of  goal  constraints  is  the  -first  efficiency 
of  PAGP  to  be  examined.  This  partitioning  "is  accomplished  by 
observing  that,  -for  any  goal  constraint  i,  one  and  only  one  o-f 
the  three  things  may  occur. 

(1)  only  d(  i  )  appears  in  the  objective  -function, 

(2)  only  d(  i  >r  appears  in  the  objective  -function, 

(  2  >  both  d(  i  >~*and  d(  i  )*“ appear  in  the  objective 

-f  u n  c  t  i  on  .  "  (  3 :  37?  ) 

In  case  <1)  the  partition  would  assign  goal  constraint  i  to  the 
priority  -factor  associated  with  d(  i  >  ;  in  case  (2)  constraint  i 
would  be  assigned  to  the  priority  -factor  associated  with  dC  i  )*"; 

while  in  case  <3)  the  partition  would  determine  the  higher  order 

priority  -factor  (in  terms  o-f  the  ordinal  ranking)  associated  with 
either  d( i )  or  d( i T  and  constraint  i  would  be  assigned  to  that 
priority".  (3:379)  When  real  constraints  are  involved,  they  are 
considered  before  any  o-f  the  goals  and  are  treated  -first.  Then 
when  the  real  constraints  have  been  satisfied,  the  constraints 

that  have  deviation  variables  in  priority  one  are  considered. 

New  priorities  continue  to  enter  one  by  one  until  either  all  the 
priorities  are  considered  or  the  special  stopping  rules  are 
initiated.  By  partitioning  the  goal  constraints,  the  probl em  is 
divided  into  subproblems  which  are  solved  in  turn,  resulting  in 
improved  efficiency. 

The  next  efficiency  of  PAGP  to  be  discussed  is  the 
el  i m i n  a  t i on  procedure .  "The  mot i vat i on  behind  the  elimination 
procedure  comes  from  the  theory  of  LP."  When  a  standard  LP 
problem  is  optimized,  " x ( j  )  cannot  enter  the  basis  to  form  an 
a:ternate  optimal  solution"  where  z(j>  -  c(j)  >  0.  A  corol  1  ary 
to  this  theorem  is  "in  the  standard  GP  problem,  if  the  optimal 


« 
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tableau  -for  subproblem  S(k>  has  been  found,  then  any  nonba.ii  c 
variable  t  <  s  >  (where  t(s)  can  be  a  decision  variable  or  a 
deviation  variable)  which  has  at  least  one  positive  relative  cost 
tz'lj)-c(j)  >  0]  can  be  eliminated  from  entering  the  basis  in 
subproblems  S ( k + 1 S < p >. "  As  a  result  of  this  procedure, 
fewep  ncnbas i c  variables  are  considered  for  entry  into  the  basis, 
m  ak  :  r,  g  the  a  1  gcr  i  t  hm  mor  e  efficient.  (3:  380  > 

The  final  efficiency  to  be  investigated  is  the  special 
stopping  rule.  When  the  program  determines  at  a  subprcblem  that 
there  are  no  ncnbas ic  variables  to  enter  the  basis,  the  stopping 
rule  is  invoked.  This  rule  is  initiated  regardless  of  the  number 
of  lower  priorities  remaining  to  be  considered.  Therefore,  when 
there  is  no  possibility  of  improving,  the  problem  terminates. 
This,  like  the  ~r  aspects  of  PAGP  discussed,  causes  this 
program  to  be  mere  efficient. 

Consiusoor; 

This  chapter  has  described  the  general  model  of  DEPLOY  as  a 
OP  model  that  incorporates  the  program  PAGP  for  the  allocation 
routine.  The  basics  of  GF  were  reviewed  along  with  its  advantage 
over  normal  LP  and  how  it  satisfies  the  requirement  of  multiple 
objectives  generated  from  DEPLOY.  Furthermore,  the  efficiencies 
cf  Fuf-p  were  investigated  as  to  why  the  routine  was  chosen  to 
support  DEPLGi.  This  concludes  the  examination  of  the  general 
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E.  S.  Guade  is  quoted  as  sa/ing,  "All  of  the  assumptions  of 
a  model  must  be  made  e:c p  1  ici  t  ...  so  his  (the  modeler';.)  errors 
will  be  more  evident"  .(11  : 21 9)  Though  assump  t  i  cns  do  no.  t 
" n  e  o  e s  s a  r i  1 y  reflect  errors,  they  do  represent  the  modeler's 
perception  of  the  real  wot  1  d"  .  ( ** :  26':  As  a  result,  it  is 
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blcde.1  :  DEPLOY  '  s  appl  i  cation  and  usefulness  are 
restricted  by  the  following  factors: 

1 .  Constant  availability  of  Aircraft.  The  availability  of 
aircraft  is  constant  throughout  the  time  periods  considered  in 
the  model .  That  is,  an  aircraft  cannot  become  more  or  less 
available  from  one  period  to  the  next.  The  only  exception  to 
this  :s  when  considering  the  first  period  the  aircraft  is 
available.  Before  the  first  period  of  availability,  the  aircraft 
is  not  considered  as  a  possible  resource  to  deploy  units.  At  the 
first  p  e  r i od  of  a  v  a i  1  ab i  1  i  t y ,  the  number  of  aircraft  considered 
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as  resources  is  a 

f  i  x  e  d 
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units.  Aircraft  in  the  model  move  cargo  identified  by  the  size 
and  period  in  which  it  is  shipped.  There  is  no  attempt  to 
identify  particular  cargo  with  a  specific  deployed  unit.  As-  a 
result,  an  aircraft  may  be  transporting  several  units  at  once,  or 
just  one  unit.  There  is  no  distinction  made  between  these  two 
situations.  This  is  employed  in  an  attempt  to  minimize  the 
number  of  different  variables  in  the  model .  The  process  is  valid 
because  in  order  for  a  unit  to  "close",  a  specific  number  of 
passengers  and  different  sizes  of  cargo  must  be  transported.  The 
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3.  Mon-integer  solutions.  The  number  of  resources  util ized 
ana  the  number  of  units  deployed  are  not  restricted  to  integers. 
Ther e  f  or e ,  the  so  1 u  t i c n  s  will  mos  t  likely  include  n  on  - i n  t  e  ge  r 
sol  u  t i c n  s . 
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There  is  a  1  inear  relationship  between  the  total  effectiveness  of 
deployed  units  and  the  number  of  units  deployed.  What  is  meant 
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s  realistic  if,  in  the  case  here,  there  are 


few  number  of  uni ts  to  deploy. 

6.  Only  one  APOD  considered.  There  is  only  one  APOD  that 
aircraft  can  fly  into  to  del i ver  troops  and  cargo.  The  decision 
to  limit  the  model  to  one  APOD  was  made  in  order-  to  keep  the 
matrix  dimensions  small  without  losing  tne  real  ism.  By  adding 
another  APOD,  the  constraint  matrix  would  increase 
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C  E =  _  C  was  decided  because,  to  adequately 


address  attrition,  the  ur ; t s  would  have  to  be  matched  up  with 
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2.  Airbcrne  deli v e n  y  is  limited  by  r i gge  r  s .  A  limiting 
factor  of  the  amount  ot  cargo  del  i cored  via  air-del  ivory  is  the 
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:utput.  It  is  assumed  that  there  is  no 


constraint  or,  a v a  i  1  a b  1  e  parachutes. 

3 .  T h e  time  span  considered  is  four  five-day  periods.  The 
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four  linked  periods  of  five  days.  E >- 


reducing  the  number  of  time  per i ods  considered,  the  number  of 
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DEPLOY  is  a  unique  interactive  user— friendly  computer 
program  that  optimizes  the  combat  power  del ivered  to  a  theater 
during  a  specified  t i m  e  period.  Further,  the  units  deployed  are 
kept  within  acceptable  levels  of  sustainability.  This  final 
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Jamies  Cooke.  Cooke  demonstrated  for  the  first  time  a  particular 
trie  thodol  ogy  which  determines  how  the  interactions  of  unit  weight, 
combat  attributes,  logistics  needs,  and  airlift  resources  can  be 
jointly  optimized.  <7 , 4>  The  recommendation  from  Cooke's  thesis 
was  to  take  the  math ©mat i cal  form  of  the  model  and  develop  it 
into  a  user-friendly  computer  package  that  could  be  used  to 
analyze  different  force  mixes.  DEPLOY  accompl i shed  this 
r  e  c  ofTifrie  n  da  t  i  on  and  mor  e  .  The  major  accompl  i  shments  of  DEPLOY  are 
discussed  in  the  next  section. 


tjcodcpilo-shaieDds. 

There  are  three  major  accompl i shments  completed  in  DEPLOY, 
First,  the  mathematical  mode  1  demonstrated  by  Cooke  is  developec 
into  an  interactive  user-friendly  computer  package  and,  ir 
add:  t • on  t  z  tnis,  the  user  is  able  to  perform  analysis  or 
different  force  mixes  and  different  AFCD  sets.  Second,  DEPLC' 
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there  is  no  direct  delivery  capabil ity,  airborne  del i very  is  used 
extensively.  This  points  out  the  requirement  -For  a  direct 
del i very  type  aircraft,  such  as  the  C-l ?.  Finally,  the 
importance  of  deploying  fighter  squadrons  and  ALCEs  is  shown  in 
that  the  minimum  number  of  both  are  deployed. 

Summany 

This  chapter  performed  the  necessary  verification  and 
demonstration  of  DEPLOY.  The  verification  ensured  the 
correctness  of  the  model  with  different  data  sets  using  MFCS  for 
an  allocation  routine.  The  demonstration  showed  that  DEPLOY  does 
indeed  work.  Here  also,  an  example  was  discussed  along  with  the 
meaning  of  the  output  from  DEPLOY. 
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1 78  ALCE  AF  CD  2  1.3306142 

137  ALCE-FRCN7  I NT Eft  3  . 663092? 


ACHIEVEMENTS  ARE 


PR  I  DR I TY 


4 

5 


GCAL  NUMBER  OVER-ACHIEVEMENT  UNDER-ACHIEVEMENT 
73  .0000  2.6593 

79  139.2600  .0000 

80  .0000  36.2161 

81  .0000  1.9997 


The  output  of  PAGP  gives  more  than  just  the  variable  values. 
First,  the  subproblem  or  priority  number  on  which  the 
optimization  ended  is  spec i tied.  This  number  will  always  be  less 
than  or  equal  to  the  number  of  priorities  considered  in  the 
problem.  One  o-f  the  efficient  coding  techniques  c-f  PAGP 
discussed  in  Chapter  IV  is  the  use  of  special  stopping  rules. 
Here,  the  program  is  stopped  it  non-basic  variables  are  about  to 
enter  the  basis.  As  a  result  c-f  this  stopping  rule,  the  ending 
subproblem  may  be  less  than  the  number  o-f  priorities  in  the 
problem.  Second,  the  numbsr  of  constraints,  including  goals, 
considered  in  the  final  problem  is  given.  Next,  the  variable 
numoer,  name  and  value  is  specified.  In  order  to  simplify  the 
output,  only  the  non-zero  aircaft  unit  variables  are  given.  The 
meaning  of  the  name  follows  the  order  of  the  subscripts  of  the 
variable  discussed  in  Chapter  III.  For  aircraft  variables,  the 
type  of  aircraft,  mission  or  destination,  cargo  type,  and  period 
of  flight  is  specified.  For  unit  variables,  the  name  of  the 
unit,  mode  of  delivery  or  destination,  and  peri od  of  dep 1 oymen  t 
is  given.  Finally,  the  attainment  of  the  goals  are  specified  in 


te^ms  of  over -ach i evemen t  and  under-achievement. 
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Table  6-6.  Simulated  PAGF'  Output. 
OPTIMIZATION  ENDED  ON  SUBPROBLEM  5 


************************* 


**************** 
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FOR  THE 

DECISION  VARIAE 
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PAX 

2 

6.4454446 

r=  i-i 

C-5 

A  IREN 

PAX 

3 

. 6690075 

62 

C- 1  4  i 

APOD 

OVER 

2 

6 .7172956 

62 

L-141 

APOD 

OVER 

198.7123456 

64 

C-141 

APOD 

OVER 

4 

52.6629820 

99 

0-141 

A  IREN 

OVER 

1 

246.0000000 

94 

0-141 

A  IREN 

GVER 

2 

239.5513962 

109 

0-130 

INTRA 

OVER 

1 

1 9 . 2356735 

1  1  1 

0-130 

INTRA 

OVER 

o 

90.0000000 

1  12 

0-1  30 

I  NT  PA 

OVER 

4 

90.0000000 

1  1  3 

0-1  30 

I NTEA 

EULK 

1 

11.1 528047 

1  23 

7470 

APOD 

BULK 

7 . 4425366 

130 

7470 

APOD 

EULK 

o 

w 

7.8594519 

1  32 

7470 

APOD 

EULK 

4 

18.5257392 

1  36 

747P 

APOD 

FAX 

4 

10 .9319335 

1  37 

AREN 

ETLN 

DIRCT 

1 

5.3113129 

1  38 

AREN 

BTLN 

DIRCT 

2 

3 . 688687 1 

1  42 

AREN 

ET  _N  HO 

DIRCT 

2 . 2269247 

1  43 

AREN 

ETLN  HQ 

DIRCT 

.7730753 

1  49 

AIR  A 

SLT  BTLN 

INTRA 

1 

.2720196 

151 

AIR  ASLT  BTLN 

INTRA 

o 

. 7395374 

1  52 

AIR  A 

SLT  BTLN 

INTRA 

4 

2.9047293 

160 

MECH 

ETLN 

INTRA 

4 

.0000125 

Du±^uj± 


In  this 


output  o-f 


the 


Sesu  1  ±=  :  In  this  section  the 

allocation  routine  is  given  along  with  an  explanation  o-f  the 


output  . 

Here,  the  process  o-f  acquiring  the  output  data  is  explained. 
DEPLOY  generated  the  appropriate  constraints  and  goals  -from  the 
input  mentioned  above.  Then,  the  necessary  in-formation  was 
passed  to  PAGP,  the  allocation  routine,  to  satisfy  the 
constraints  and  maximize  the  goals.  At  this  point,  a  very 
unusual  situation  occurred.  Though  PAGP  had  been  checked  with  a 
small  problem  in  the  identical  -format  for  the  deployment  problem, 
an  examination  of  the  output  proved  the  results  invalid.  The 
output  was  invalid  simply  because  the  constraints  were  not 


satisfied  and,  therefore,  the  answers  were  infeasible.  In  an 
attempt  to  show  that  the  problem  could  be  solved,  the  Multi- 
Purpose  Optimization  System  (MPGS)  version  4.0,  an  LP  package, 
was  used.  The  method  of  Sequential  Goal  Programm i ng  <SGP)  was 
utilized  to  solve  the  GP  problem  with  MPOS.  Here,  the  first  goal 
became  the  objective  function  to  maximize  while  lower  goals  were 


d i scarded . 

Then  ,  the 

1 essor  of  the 

goal  or 

the  at  ta i nmen  t 

of  the 

ob j active 

f  u  n  c  t  i  o  n  b  e 

came  a  new  co 

n  stra i n t 

,  while,  the 

second 

goal  entered  as  the 

ob j  e  c  t i v  e 

f unc  t i on 

to  max i m i ze  . 

Th  i  s 

i terat i ve 

process  con 

t i n  u e  d  until 

all  tne 

goals  were  cons 

i  dered . 

The  result 

s  of  the  final  ouput  are 

listed  i 

n  Table  6-6 . 

I 


I 


i 


i 


i 


i 


Tab 

1  e  6-3 . 

APOD 

Data 

DISTANCES 
FROM  US: 

7200  . 

FROM  CORPS: 

20  0  . 

AIRCRAFT 

INTER 

INTRA 

OUT 

OVER 

BULK 

C-5 : 

1  .5 

1  .0 

1  .0 

1  .0 

C-141 

1  .5 

■  2 

.0 

1  .0 

1  .0 

C-130 

.0 

o 

■  A 

.0 

1  .0 

1  .0 

747P 

1  .5 

.0 

.0 

1  .0 

1  .0 

7470 

1 .5 

.0 

.0 

.0 

.0 

3.  COMBAT  VALUES  OF  UNITS  CLOSING 


PERIOD  1  2.5 

PERIOD  2  1.8 

PERIOD  3  1.3 

PERIOD  4  1.1 

4.  MISCELLANEOUS  DATA 
MHE  AT  APOD  500 

MHE  AT  FRT  500 

ALCE  CAP  600 


RIGGER  CAP  430.0 


Table  6-4.  Deployable  Units  Data 

o  «=:  o  o 

o  w  L.  0 


TYPE 

NUMB 

OUT 

OVER 

BULK 

PAX 

SPL 

CP 

AT 

FT 

AC 

PK 

TP 

TV 

AB 

Cl 

A REM  BTLN 

9 

0 

1400 

268 

1400 

149 

4 

1? 

4 

0 

0 

0 

20 

1 

1 

AREN  BTLN 

HG 

73 

0 

0 

305 

0 

0 

0 

0 

0 

0 

0 

20 

1 

-1 

AIR  ASLT  B 

TLN 

? 

152 

990 

574 

I960 

446 

6 

2£ 

4 

0 

0 

0 

13 

0 

1 

MECH  BTLN 

? 

2055 

C'QCC, 

151 

2052 

4^0 

8 

40 

6 

0 

0 

0 

14 

0 

1 

15 EMM  ART 

BTLN 

3 

13? 

1243 

91 

710 

212 

3 

0 

0 

0 

0 

12 

0 

-1 

F-i 6  SO DM 

o 

0 

*  r* 

7 

155 

472 

102 

O 

36 

0 

18 

48 

0 

0 

0 

0 

MDM  TRUCK 

CMFY 

1093 

40  5 

270 

250 

etc: 

0 

0 

0 

0 

0 

182 

40 

0 

0 

ALCE 

2 

176 

2213 

244 

400 

73 

0 

0 

0 

0 

0 

0 

0 

0 

0 

Table  6-5.  Goals  -for  DEPLOY 

GCAL  tt  2  IS  25.0  CF  FRONT  LINE  TRACE  BY  PERIOD  1 
GOAL  #3  IS  60.0  OF  ANTI-TANK  POWER  BY  PERIOD  2 
GCAL  #  4  IS  180.0  OF  FIREPOWER  BY  PERIOD  3 

GCAL  tt  5  IS  2.0  OF  MECH  BTLN  BY  PERIOD  4 


Inpiul  Eac-aci-e-tacs. :  The  source  and  rationale  for  the 


d  i 

f  ♦  e  r  e  n 

1 

n  p  u  t  parameters 

are  discussed 

in  this 

sect i on . 

The 

ma 

j  or  i  t  / 

of 

these  parameters  which  indie 

ate  that 

DEPLOY 

works 

P  r 

op e  r  ’  y 

were  the  s am e  as 

those  used  by 

Cooke  . 

The  a 

i  rpor  t 

1  i 

mi  tat  i 

on 

= 

and  unit  weight 

wer  e  et  t a i ned 

f r om  reference  2, 

al  or. g 

W  1 

t  h  t  n 

e 

at 

r  craft  1  i m i  t  a  t i 

ons  and  capab i 1 

i t i es  bu  t 

were  "c 

hacked 

and  modi  tied  by  HQ  u'SAF/SAGM .  11  As  a  result  of  this  modification, 
the  C-5  UTE  Rate  was  changed  from  the  5.5  suggested  by  the  Army, 
to  12.5  as  suggested  by  tne  Air  Force.  The  measure  of  front  1 i ne 
trace  was  "taken  from  doctrinal  publications,"  while  the  anti¬ 
tank  capabil it/  was  calculated  "from  TOE  data  for  unit  owned  TOW 
and  DRAGON  weapon  systems,  ...  using  a  value  of  1  for  TOW  systems 
and  0.5  for  DRAGON  systems."  The  firepower  for  the  different 
units  was  not  as  easily  obtained.  Here,  the  firepower  "was 


deve  1 

oped 

from 

the  relative  firepower 

of 

un  i  t 

sin  a 

f orce-cn- 

f  o  r  c  e 

iw  at  r 

Qatflit- 

at 

the  Army  War  Col  lege 

The 

a  c  t  u  a.  1 

dat  a  files- 

u  s  e  d 

ar  9 

give  n 

i 

n  Tables  6-2  through 

6-4 

,  wh 

i 1 e  the 

goal  s  are 

shown 

i  “i 

Tat  i  e 

6 

-5.  The  goals  start 

at 

the 

second 

pr i or i  ty  , 

bees  ■  j 

se 

he  -f  i 

r  = 

t  priority  is  reserve 

d  f  o 

r  the 

i n equal i ty 

c  on s  t  r  a  i  n  t  s  .  <7  : S 1  ? 


Table  6-2.  Aircraft  Data 


TYPE 

NMBR 

AUL 

DRCT 

APOD 

INTRA 

AERN 

CUT 

GOER 

BULK 

FAX 

cpr, 

GTd 

MHE 

FP 

PRK 

C-5 

60 

.8 

.0 

12.5 

9.0 

0.0 

65  25 

60  25 

80  25 

320 

430 

3.3 

36 

1 

5 

C-141 

1  SO 

O 

.0 

12.5 

10.0  3 

2.0 

0 

0 

21  14 

25  14 

110 

410 

2.3 

13 

1 

12 

C-130 

300 

.8 

.0 

.0 

4.0 

.0 

0 

0 

14  6 

14  6 

64 

270 

1  .5 

6 

1 

16 

747C 

30 

Q 

•  o 

.0 

10.0 

.0 

.0 

0 

0 

60  0 

90  0 

0 

430 

3.6 

2 

5 

7  47P 

20 

.  3 

.0 

10.0 

.0 

.0 

0 

0 

0  0 

0  0 

364 

430 

2.8 

36 

2 

5 

Eiaas-Li-Lii-Lii: .  There  -are  three  sens:  tivi  ty  options  in  DEPLOY. 
These  options  s'  low  the  user  to  make  specific  changes  to  the 
aircraft,  AFGD ,  and  deployable  units  data  set.  The  changes  are 
made  one  at  a  time,  from  a  menu  of  different  possibilities. 
Furthermore,  the  particular  data  set  can  be  viewed  after  any 
change.  To  verify  the  editors,  each  option  was  exercised  and 
the  data  viewed.  In  all  cases,  the  data  was  correctly  changed 
and  placed  in  the  program.  Each  of  the  sensitivity  options  were 
verified  using  this  method.  An  illustration  of  the  sensitivity 
portion  is  given  in  the  user's  guide  in  Appendix  A. 

E AGE.  This  is  the  program  used  to  allocate  the  resources 
according  to  the  methodology  of  Goal  Programming.  In  its  basic 
form,  PAGF  was  designed  to  read  inputs  interactively.  Therefore, 
since  DEPLOY  and  PAGP  are  run  separately,  there  was  a  requirement 
to  pass  information  via  files.  Considering  that  PAGP  was 
verified  by  Bunnell  and  Takacs  in  BRIK  (4:77),  the  only 
verification  necessary  was  to  ensure  that  the  proper  information 
was  properly  placed.  To  confirm  this,  several  write  and  print 
statements  were  incorporated  into  PAGP  to  check  the  passed  data. 
E/  testing  different  data  sets,  the  input  parameters  were 
visually  examined  as  the  program  performed  its  allocation, 
‘-gain,  in  all  cases  the  data  was  correctly  input.  Therefore, 
FAGr  was  verified  for  small  problems. 

L  a  21  c  n  s  1  z.  ad.  j.  o  n 

This  section  demonstrates  the  output  of  DEPLOY  with 
reasonable  data.  There  are  two  main  areas  discussed  in  this 
section,  the  input  parameters  ard  the  allocation  output. 


4 


•J 


6-3 


v arable  is  specified.  If  the  variable  is  cargo  aircraft,  the 
aircraft  type  is  given  along  with  the  type  of  mission  or 
destination,  cargo  type  and  period  of  flight.  If  the  variable  is 
a  deployed  unit,  the  name  is  given  along  with  its  mode  and  time 
period  of  travel.  The  mode  of  travel  of  a  unit  is  discussed  in 
Chapter  III  under  the  variable  and  subscript  sections.  Further, 
if  the  variable  is  a  slack  or  surplus  variable,  no  name  is  given. 
An  example  of  a  constraint  printout  is  given  in  Table  6-1.  By 
using  this  feature,  several  different  data  sets  were  entered  and 
the  resulting  constraints  examined.  In  all  cases,  the  constraint 
matrix  correctly  reflected  the  proper  results.  Therefore,  the 
matrix  formulation  was  verified. 


Table  6-1.  Constraint  Output 

THEATER  SUF'PLIE 


A  I  J  < 

O  -C* 

1  O  )  = 

SO  .00000 

C-5  APOD 

SUPP 

A I  J  < 

-~2 

52  >  = 

80 .00000 

C-5  AI REN 

SUPF 

A I  J  < 

O  C; 

63  )  = 

23 .00000 

C-141  APOD 

SUPP 

A I  J'l 

o  - 

100)  = 

23.00000 

C-141  A IREN 

SUPP 

A I  J< 

oo 

V.' 

12?)  = 

90.00001 

747C  APOD 

SUPP 

A I  J< 

33 

137)  = 

-745.00000 

AREN  ETLN 

DIRCT 

A I  J  < 

33 

14!)  = 

.00000 

AREN  BTLN  HQ 

DIRCT 

AI  JC 

33 

143)  = 

-2230 .00000 

AIR  ASLT  BTLN 

APOD 

A I  J< 

33 

1  49)  = 

-2230 . 00000 

AIR  ASLT  BTLN 

INTRA 

A I  J  ( 

33 

153)  = 

-2200 .00000 

MECK  BTLN 

APOD 

A I  J  < 

33 

137)  = 

-2200 .00000 

MECH  BTLN 

INTRA 

a  i  j  •: 

33 

1  6 1  >  = 

-1060 .00000 

155MM  ART  ETLN 

APOD 

A I  J  < 

O  T? 

1 

163)  = 

-1060.00000 

1 55MM  ART  BTLN 

INTRA 

AI  J< 

O  O 
■-> 

16?)  = 

-510 .00000 

F— 1 6  SQDN 

APOD 

A I  J  ( 

o  o 

1  73)  = 

-275.00000 

MDM  TRUCK  CMPY 

APOD 

AI  J( 

33 

177)  = 

-365.00000 

ALCE 

APOD 

AI  J( 

33 

131)  = 

-365.00000 

ALCE-FRCNT 

AFOD 

AI  J< 

33 

185)  = 

-365.00000 

ALCE-FRCNT 

I  NT  R  A 

AI  J'l 

33 

1?0)  = 

-1  .00000 

AI  J< 

33 

189)  = 

1  .00000 

VI  . 


yadi.-Li-aij.jDn  and  Damcn.slnal.Lnn 

This  chapter  discusses  the  necessary  verification  and 

demonstration  of  DEPLOY.  The  verification  portion  of  the  chapter 
will  ensure  the  correctness  of  the  model  through  a  scrutiny  of 
the  various  parameters.  The  demonstration  (Mill  show,  with 
reasonable  data,  that  the  model  accomplishes  its  designed 
purpose . 
yan±£-Laa±-Lon 

This  section  verifies  DEPLOY  by  considering  three  critical 
areas.  First,  the  correctness  of  the  matrix  formulation  will  be 
examined  to  ensure  that  it  properly  reflects  the  goals  and 
constraints  discussed  in  Chapter  III.  Next,  the  sensitivity 
portion,  which  changes  input  parameters  will  be  tested  to  ensure 
that  the  desired  changes  are  in  fact  made  and  not  misplaced. 
Finally,  the  necessary  input  parameters  for  the  allocation 
routine,  PAGP ,  will  be  inspected  for  their  proper  placement. 

Ualc-La  Eccmiiiaiicn .  The  matrix  is  comprised  of  the  data  set 
entered  by  the  user  and  the  mathematical  equations  discussed  in 
Chapter  III.  Therefore,  the  model  assimilates  the  data  given  by 
the  user  and  develops  the  necessary  constraints  and  goals.  This 
is  a  noteworthy  feature  of  DEPLOY,  which  helps  the  user  examine 
the  matrix  formulation.  The  user  has  the  option  of  observing  the 
constraints  being  generated  at  the  terminal  and/or  reading  a  hard 
copy  of  the  matrix  by  routing  the  file  "OFILE"  to  the  printer. 
The  echo  of  the  constraint  is  extremely  easy  to  read  and 
understand.  Following  the  title  of  the  constraint  set,  the  row, 


column  and  value  of  the  variable  is  given. 


Then,  the  name  of  the 


EAS; I  , K  > 

The 

r  e  1  a  t  i 

ve  ease  with  which 

c ar  go 

K  can 

be  down -loaded  for  air 

craft 

I  . 

CPI <  L ) 

The 

c  omba  t 

p ewer  indices  for 

per i od 

L. 

NHA 

The 

amoun  t 

of  MHE  in  pallet 

equ i v- 

al en  ts 

pr epos i t i oned 

a  t  the 

APOD. 

NHF 

The 

amoun  t 

of  MHE  in  pallet 

equ  i  v- 

al en  ts 

pr epos i t i oned 

at  the 

front  . 

NF’AL 

The 

number 

of  pallet  equi 

v  a  1  e  n  t  s 

the  ALCE  can  download. 

RC 

The 

r  i  gger 

s'  capacity  to 

prepare 

airdrop  loads  pe^  da/, 


Table  5-3 

Input  Requirements  -for  the  Deployable  Units 


UNAME <  Y ) 
N1JNT  ( Y  ) 

NT  CM  < Y , Hi 

NFF  <  Y ) 
NAT ( Y  > 
NFT  <Y> 

NT AC  < Y ) 

NPK(Y) 

NTF(Y) 

NT’/  ( Y  ) 

IAE(Y) 

NCI (Y) 


I  TYPE 
OEJ 
I  DP 


The  name  o-f  the  unit. 

The  number  o-f  units  available  -for 

dep 1 oymen  t . 

The  equipment  tonnage  o-f  size  K  -for 
unit  Y . 

The  firepower  exhibited  by  unit  Y. 

The  antitank  force  of  unit  Y. 

The  front  line  trace  capability  of 
unit  Y . 

The  number  of  fighter  aircraft 

ass igned  to  unit  Y. 

The  number  of  fighters  that  can 

park  at  the  APOD. 

The  ton-m i 1 es/day  the  unit  can 
transport  supplies. 

The  mi  1 es/day  the  uni  t  can 
transpor  t  itself. 

The  airborne  capability  indicator. 
The  combat  unit  type  of  unit  Y. 


Table 

Input  Requirements 


The  type  of  goal . 

The  desired  level  of  the  goal . 
The  desired  period  to  acccmpl i sh 


Ccnd.usu.jQEL 

Two  aspects  of  the  model  have  been  discussed 


chapter . 


The 


restrictions  and  scenario  limitation 


1q£ui±  EaAulcamHn-L-S 


As  in  most  models,  a  complete  description  c-f  the  entities  of 
the  model  is  necessary.  The  entities  for  DEPLOY  are  divided  into  j 

four  main  areas;  aircraft,  APOD,  deployable  units,  and  goals. 

Each  area  requires  specific  information,  and  is  stated  in  Tables 

5-1  through  5-4.  With  this  information,  the  different  I 

constraints  and  goals  discussed  in  Chapter  III  are  constructed. 

Once  these  constraints  and  goals  are  built,  the  information  is 

fed  into  PAGP  to  optimally  allocate  resources  for  the  es tab  1  i shed  I 

constraints  arid  ci u* a  i  s  . 


Table  5-1 


Input  Requ i 

i  remien  ts  f 

or  the  Aircraft  Inver,  tory 

A CM AMEC  I > 

The 

name  of  the  aircraft. 

NAC C I ) 

The 

number  of  aircraft  in  the 
v  entory . 

i  n  - 

Av'A  I  L  (.  I  > 

The 

availability  of  the  aircraft 

• 

UTE< I , J> 

The 

UTE  rate  for  a  particu 

m i ss i on  . 

1  ar 

K A ESC  I , K ) 

The 

cargo  carrying  capability 
different  sizes  of  cargo. 

for 

KTSC I ) 

The 

cruise  TAS  of  the  aircraft. 

GT  <  I  > 

The 

en route  ground  time  of 

aircraft. 

the 

MHEC I > 

The 

maximum  number  of  pallets 
aircraft  can  carry. 

the 

NFP C I > 

The 

first  period  the  aircraft 
a  v  a  i  1  a  b  I  e  . 

i  s 

Nr'RKC  I  ) 

The 

number  of  aircraft  that 
park  at  the  APOD. 

c  an 

Table  5-2 

Input  Requirements  for  the  APOD  Complex 


DUSAPD 

The 

d  i  s t ance 

from  the  US 

to  the 

AFOD . 

DAFT  FT 

The 

d i stance 

from  the  APOD 

to  the 

front. 

INTERC I > 

The 

round  tr 

ip  time  for  an 

i n  t  er  - 

theater  mi 

ission  for  aircraft  I. 

I NT RAC  I ) 

The 

round  tr 

ip  t i me  for  an 

i n  tr a- 

theater  mission  for  aircraft  I. 

variables  and  constraints  are  significant! y  r  e  d u  c e  d . 

4.  All  units  are  immediately  available  and  are  located  in 
the  US.  All  units  to  be  deployed  are  ready  for  deployment  at  the 
beginning  of  the  first  period.  Also,  the  cargo  and  troops  are 
considered  to  be  in  a  central  location. 

5.  A  constant  daily  amount  of  supplies  is  necessary.  In 
order  to  sustain  a  unit  once  it  has  deployed,  only  a 
predetermined  constant  amount  of  supplies  is  necessary.  There  is 
no  provision  for  a  changing  supply  requirement  for  deployed 
units.  Furthermore,  it  is  assumed  that  each  unit  has  sufficient 
supplies  to  sustain  itself  until  the  following  period. 

6.  Intratheater  specific  aircraft  are  not  deployed  at  the 
APOD.  Aircraft  such  as  the  C-130  that  specialize  in  »nt rat heater 
airlift  are  deployed  at  an  area  different  from  the  APOD.  If  this 
were  not  the  case,  "the  ramp  and  serving  requirement  would 
restrict  the  capability  of  the  APOD  to  handle  strategic  airlift 
in  the  theater ".<7:81) 

7.  The  ratio  of  combat  to  combat  support  units  is  set  to  at 
least  1:1.  This  ratio  is  explained  in  Chapter  I'd  under  the 
section  labeled  Unit  Linkage.  Furthermore,  this  ratio  can  be 
easily  changed  by  altering  the  code  in  subroutine  CONSTR  under 
the  title  Combat  and  Combat  Support. 

8 .  Air  bor n  e  deliveries  originate  f  r  cm  the  U . S .  Units 
delivered  via  airdrop  arrive  directly  from  the  U.S.  There  is  no 
capacity  to  load  the  airborne  cargo  at  the  APOD.  Also,  airborne 
units  can  only  be  delivered  via  airdrop.  Therefore,  if  there  are 
no  airdrop  capable  aircraft,  no  airborne  units  would  be  deployed. 
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a!  cwi  the  user  to  perform  two  possible  types  of  anal  /sis: 
optimal  accomplishment  of  certain  Army  objectives  and  also 
determination  of  the  minimum  force  structure  is  necessary  to 
accomplish  the  goals  of  the  Army.  Finally,  DEPLOY  has  made  the 
model  more  flexible  than  that  demonstrated  by  Cooke.  Each  of 
these  accomplishments  will  be  discussed  in  detail. 

£,ompiii±£ic  Package  :  DEPLOY  permits  the  user  to  easily  define 
the  desired  force  structure  and  APOD  data.  The  fore---  structure 
is  comprised  of  aircraft  and  Army  and  Air  Force  units  that  may 
participate  in  the  deployment.  Each  aircraft  and  unit  has 
specific  characteristics  specified  by  the  user  to  define  the 
proolem.  Data  containing  the  force  structure  and  APOD  data  may 
be  entered  interactively  or  from  a  user-defined  file. 
Furthermore,  DEPLOY  allows  the  user  to  make  certain  changes  to 
the  entered  data,  thereby  saving  the  user  the  time  necessary  to 
re-enter  the  complete  data  set  to  make  minor  changes. 

liipaas  c£  Analysis:  DEPLOY  performs  two  types  of  analysis. 


The 

first 

t  ype 

of  analysis  de 

t ermines  the  degree 

t  0 

Wh  i  Ch 

the 

A  r  Ti  > 

goal  s 

c  an 

be  met  w i th 

a  given  fleet  of 

a  i 

rcraf t 

and 

dep  1 

oy ab 1 e 

unit 

=.  The  Army 

goal s  specify  levels 

of 

front! 

1  n  e 

f'ace,  anti-tank  power,  and  fire  power.  In  addition,  an  Army 


O  C  a  I 

)Ti  a  /  | 
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u  d  e  the  t  r 

an  s 
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a 
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a  i  n  t 

ype 

of  un 

i  t 

t  o 
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i  r  on  t 

For  i 

instance, 

a  g 

real  may 

be 

t  o 

pos  i  t 

i  on 

two 

me 

chan  i 

i  zed 

tat  ta 

!  i  on  - 

to 

the  front 

by 

the  tenth 

day 

of  ba 

1 1 1 . 

?.  Each 

type  of 

goal  considered  in  the  analysis  is  determined  by  the  user  along 
with  the  priority,  level  of  attainment,  and  period  of  completion. 


mini  mum  f or  c e 


The  second  type  o-f  anal  ys  i  s  determines  the 
structure  necessary  to  acccmpl i sh  the  given  Army  goals.  Here, 
the  Army  goals  become  hard  constraints  while  the  aircraft  become 
the  goals  to  minimize.  When  performing  this  type  of  analysis, 
the  user  has  the  option  to  treat  all  aircraft  types  equal  or  to 
weight  the  aircraft  according  to  cost  or  any  other  means.  By 
allowing  the  user  the  option  of  two  types  of  analysis,  DEPLOY  is 
more  versatile  in  meeting  the  needs  of  the  analyst. 

Fie ib-i  ii.  ty  :  By  having  fewer  restrictions,  DEPLOY  is  more 

flexible  in  reflecting  the  actual  deployment  of  armed  forces. 

The  modei  used  by  Cooke  to  demonstrate  his  methodology  had  two 
restrictions  that  are  not  binding  in  DEPLOY.  The  two 
restrictions  are  that  intratheater  airlift  was  "limited  to  moving 
bulk  cargo  suppl ,es"  and  ground  travel  time  was  considered  equal 
for  all  deployed  units.  <4:80)  As  a  result  of  the  first 

restriction,  the  deployed  units  to  the  front  had  to  be  delivered 
directly  to  the  front  or  del iverec  to  the  APOD  and  then  required 
to  transport  t hems  Ives  to  the  front.  If  a  unit  was  unable  to 
transport  itself  or  net  airborne  capable  and  there  were  no 

direct  delivery  aircraft  available,  the  unit  could  not  be 

deployed.  An  example  c-f  a  unit  that  is  most  likely  unable  to 

transport  itself  and  is  not  airborne  capable  is  an  ALCE  unit 

deployed  to  the  front  to  help  facilitate  the  i ncom ing  aircraft. 
DEPLOY  removes  this  restriction  and  allows  units  to  be 

transported  to  the  front  via  intratheater  airlift.  The  second 
restriction  analyzed  shows  that  all  units  may  not  be  able  to 
transport  themselves  at  the  same  speed.  DEPLOY  allows  the  user 
to  enter  the  distance  per  day  that  a  specific  unit  can  move  and 


then  calculates  the  time  required  to  travel  -from  the  APOD  to  the 
-front.  This  allows  the  model  to  more  accurately  re-flect  the 
individual  units.  DEPLOY  then,  is  more  -flexible  in  its 
reflection  of  the  real  deployment  of  troops  than  the  model  used 
by  Cooke . 

Ee.oo[Em£ada.±J.oci.s. 

Research  is  an  iterative  process  and,  therefore,  extended 
study  would  yield  continued  insight  and  practical  application. 
DEPLOY  is  no  exception,  so  that  the  following  recommendations  are 
made  for  further  research: 


1  .  At  tr 

i  t  i  on  of  a i rcraf  t 

and  troops 

shcu  1  d 

be 

addressed 

to  de  term i ne  the 

effects  that 

it  has 

on 

deployment  and  sustaining  the  units  deployed. 

2.  A  full-scale  model  should  be  analyzed  with  DEPLOY 
to  determine  what  can  be  accomplished  with  the  present 
day  inventory  of  aircraft. 

3.  Analysis  should  be  completed  to  examine  Right  Hand 
Side  <RHS)  ranging  along  with  other  types  of 
se  n  s  i  t  i  v  i  t  y  an  a  1  y  s  i  s  . 

4.  F'AGP  should  be  corrected  so  that  it  can  be  used  in 
conjunction  with  DEPLOY. 
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APPENDIX  A 


Llsac.  Guxda 

This  guide  will  -f  am  i  1  i  ar  i  :e  the  user  with  many  of  the 
-features  o-f  DEPLOY.  It  will  proceed  through  DEPLOY  according  to 
the  various  model  -function  sequences. 

DEPLOY  was  developed  to  be  "  user-f  r  i  endl  y  .  "  The  de-finition 
o-f  "user-fr  i  endl  y"  is  taken  to  mean  that  anyone  with  the 
necessary  data  and  a  limited  background  in  either  computer  or 
mathematical  programming  could  use  the  model.  Since  DEPLOY 
displays  prompts  and  menus  on  the  screen  to  guide  the  user 
through  the  model  "s  -functions,  the  user  needs  access  to  a 
computer  equipped  with  a  monitor. 

Many  o-f  the  prompts  which  appear  on  the  screen  are  questions 
that  require  answers.  Realizing  that  a  user  could  input  an 
illogical  response  or  incorrect  data,  the  model  incorporates  many 
internal  checks  to  guard  against  these  possibilities.  An  example 
o-f  a  check  can  be  -found  at  any  yes  or  no  <l=y/0=n>  question.  I -f 
the  user  responds  with  something  other  than  a  1  or  0,  an  error 
statement  is  issued  and  the  user  is  asked  to  enter  in  a  proper 
response.  Also,  the  model  discourages  the  user  -from  inputting 
i nappropr i ate  data.  For  example,  probabilities  are  accepted  only 
i -f  they  are  between  zero  and  one,  inclusive.  Again,  i  f  the  data 


is  out  o-f  range 

,  an  error  statement  is  given 

and 

the  user  is 

told 

to  enter  in  an 

appr opr 

i  ate  probab i 1  i ty . 

This  user 

gu  i  de 

is  divided  into  -four 

ma  i  n 

sections. 

The 

-first  section 

will 

discuss  the  process 

of 

conduc  ting 

new 

analysis.  The 

de  -f  i  n 

i  ng  o-f  the  goals  will 

be 

rev i ewed  i n 

the 

second  section.  Then,  in  the  third  section,  the  sensitivity 
cap  sb i 1  i  ty  of  DEPLOY  will  be  d i scussed .  Finally,  the  allocation 
output  will  be  explained, 
blew  Ana  1  y=.  i  s 

DEPLOY  permits  the  user  to  input  data  interactively  or 
through  user-designated  -files.  The  input  data  is  divided  into 
three  subsections:  aircra-ft  data,  APOD  data,  and  deployable  units 
data.  This  section  will  describe  the  type  o-f  data  needed  by 
DEPLOY  -for  new  analysis. 

Data  is  entered  in  the  -following  order:  aircraft,  APOD  and 
deployable  units  data.  Since  DEPLOY  follows  the  same  basic 
operation  of  input  for  all  three  data  types,  the  following 
explanation  applies  to  all  three  data  sets.  The  first  decision 
the  user  must  make  is  whether  the  data  is  to  be  entered 
interactively  or  from  a  file.  If  there  has  not  been  any  previous 
analysis  which  created  a  usable  data  base  stored  in  a  user- 
designated  file,  the  data  must  be  entered  i n ter ac t i ve 1 y .  If  the 
data  is  entered  interactively,  DEPLOY  will  guide  the  user  with  a 
series  of  questions.  These  questions  insure  that  the  required 
data  is  input  in  the  correct  format.  After  the  data  is  entered, 
either  interactively  or  via  an  external  file,  the  user  has  the 
option  to  view  the  data  set. 

It  is  possible  to  build  a  data  file  independently  of  DEPLOY, 
but  it  is  e -  si er  to  input  the  data  interactively  and  allow  the 
model  to  build  the  external  file.  If  the  data  base  is  input  from 
an  external  file,  the  user  must  insure  the  file  exists  prior  to 
operating  DEPLOY.  If  a  data  file  i s  bu i 1 t ,  its  name  must  be  less 
than  seven  characters  long.  Since  the  file  must  be  formatted,  it 
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is  easier  to  allow  DEPLOY  to  create  the  file. 

The  rest  of  this  section  describes  the  input  requirements 
for  the  three  types  of  data  bases  used  in  DEPLOY.  Each  section 
will  list  and  briefly  describe  the  required  parameters  of  DEPLOY. 

A_LEX.c.ai±  J_Qpjj± :  The  data  for  the  aircraft  may  be  entered 

interactively  or  by  an  external  file.  An  example  of  an  aircraft 
data  file  is  in  Table  A-l .  The  following  is  a  list  of  required 
aircraft  data: 

Aircraft  name  --  Maximum  of  6  characters. 

Number  of  aircraft  —  Integer,  format  limit  =  999. 

Aircraft  availability  —  The  percentage  of  aircraft  in  the 

fleet  that  may  participate  in  the 
deployment.  Real,  between  0  and  1, 
inclusive. 

Aircraft  UTE  rate  —  Real ,  between  0  and  24  hours/day , 

inclusive. 

Cargo  capacity  —  The  tonnage  capacity  of  the  aircraft 

for  out,  over,  and  bulk  sized  cargo 
along  with  the  number  of  passengers 
that  may  accompany  the  different  cargo 
loads.  Also,  the  number  of  passenger 
capacity  without  any  cargo  load. 
Integer,  format  limit  =  999. 

Aircraft  speed  —  True  Air  Speed  (TAS)  of  the  aircraft 

in  knots.  Integer,  format  limit  =  999. 

Aircraft  ground  time  —  The  ground  time  in  hours  to  off-load, 

up-load,  and  refuel  the  aircraft  at 
the  APOD  or  front.  Real,  format 

limit  =  99 . 

Pallet  capacity  —  The  maximum  number  of  pallets  the 

aircraft  can  carry.  Integer,  format 
limit  =  999. 

First  period  to  deploy  --  The  first  period  the  aircraft  will  be 

available  in  the  deployment.  Integer, 
f  ormat  limit  =  99 . 


Aircraft  ramp  space 


The  maximum  number  of  aircraft  that 
can  park  at  the  APOD  with  no  other 
types  of  aircraft  present.  Integer, 
format  1 imi t  =  999. 


Table  A-l .  Example  of  Aircraft  Data  File 
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TYPE 

NMBR 

AVL 

DRCT 

APOD 

INTRA 

ABRN 

OUT 

OVER 

BULK 

PAX 

SPD 

GTM 

MHE 

FP 

PRK 

C-5 

60 

.8 

.0 

12.5 

9.0 

9.8 

65 

25 

60 

25 

80 

25 

320 

430 

3.3 

36 

1 

5 

C-141 

ISO 

.8 

.0 

12.5 

10.0  1 

2.0 

0 

0 

21 

14 

25 

14 

110 

410 

2.3 

13 

1 

12 

C-130 

300 

.8 

.0 

.0 

4.0 

.0 

0 

0 

14 

6 

14 

6 

64 

270 

1  .5 

6 

1 

16 

747C 

30 

.8 

.0 

10.0 

.0 

.0 

0 

0 

60 

0 

90 

0 

0 

430 

3.6 

36 

2 

5 

747P 

20 

.8 

.0 

10.0 

.0 

.0 

0 

0 

0 

0 

0 

0 

364 

430 

2.8 

36 

2 

5 

AEOO  JLnjiui :  As  in  the  aircraft  input  section,  data  may  be 
entered  i n ter ac t i ue 1 y  or  by  a  user-designated  file.  An  example 
of  an  APOD  data  file  is  given  in  Table  A-2 .  The  following  list 
contains  required  APOD  and  miscellaneous  parameters. 


D i stances 


Intertheater  turntimes 


I ntr a  theater  turntimes  — 


Combat  power  indices 


The  distance  from  the  U.S.  to  the  APOD 
and  from  the  APOD  to  the  front  in  km. 
Real,  format  limit  =  99,999. 


The  time  required  in  days  for  each 
aircraft,  from  the  start  of  one 
intertheater  mission  until  the  start 
of  another  intertheater  mission 
i mmed i at e 1 y  foil ow i ng .  Real,  forma t 
limit  =  10. 


The  same  as  intertheater  turntimes, 
but  for  intratheater  missions.  Real, 
f  orma  t  limit  =  10. 


Off-loading  cargo  ease  — 


The  relative  ease  with  which  a 
specific  size  of  cargo  for  a  specific 
aircraft  can  be  off-loaded.  Real 
between  0  and  1,  inclusive.  The 
def aul t  val ue  i s  1 . 


The  t i me -dependen t  portion 
firepower.  Real,  format  limit  99, 


of 


Prepositioned  MHE 


—  The  amount  o-f  MHE  measured  in  Pallet 
Equivalents  (PE)  prepositioned  at  the 
APOD  and  the  -front  air-field.  Integer, 
■format  limit  =  99,999. 

ALCE  capability  —  The  number  o-f  PE's  an  ALCE  unit  can 

o-f-f-load  in  one  day.  Integer,  -format 
limit  =  99,999. 

Rigger  capability  —  The  number-  o-f  airdrop  loads  the  Army 

rigger  unit  is  able  to  prepare  in  one 
day.  Real  ,  -format  1  imi  t  =  99,999. 


Table  A-2.  Example  o-f  APOD  Data  File 
1.  DISTANCES 


FROM  US:  7200. 

FROM  CORPS:  200. 


AIRCRAFT 

INTER 

INTRA 

OUT 

OVER 

BULK 

C-5: 

1  .5 

.2 

1  .0 

1  .0 

1  .0 

C-141 

1 .5 

.2 

.0 

1  .0 

1  .0 

C-130 

.0 

.2 

.0 

1  .0 

1  .0 

747P 

1  .5 

.0 

.0 

1  .0 

1  .0 

747C 

1  .5 

.0 

.0 

.0 

.0 

3.  COMEAT  VALUES  OF  UNITS  CLOSING 

PERIOD  1  2.5 

PERIOD  2  1.8 

PERIOD  3  1  .3 

PERIOD  4  1.1 

4.  MISCELLANEOUS  DATA 

MHE  AT  APOD  500 

MHE  AT  FRT  500 

ALCE  CAP  600 

RIGGER  CAP  430.0 


Llniis  lnpm± :  As  in  the  previous  two  cases,  the 
data  may  be  entered  either  interactively  or  via  an  external  -file. 
An  example  o-f  a  Unit  Data  -file  is  given  in  Table  A-3.  The 
-following  list  contains  the  required  input  data  concerning  the 
units  that  may  be  deployed. 

Unit  name  —  Maximum  o-f  14  characters. 

Number  o-f  Units  —  Integer,  -format  limit  =  99. 

—  The  tonnage  o-f  equipment  in  di-f-ferent 
cargo  sizes  (out,  over,  and  bulk). 
Integer,  format  limit  =  99,999. 


Equipment  of  Units 


Personnel  in  Unit  —  The  number  of  personnel  assigned  to 

the  unit.  Integer,  -format  limit  = 
99,999. 

Unit  consumption  rate  —  The  consumption  rate  o-f  supplies  by 

the  unit  -for  one  day.  Integer,  -format 
limit  =  9 , 999 . 

Firepower  of  Unit  —  The  amount  of  firepower  the  unit 

displays.  Real,  format  limit  =  99. 

Anti-tank  power  —  The  amount  of  anti-tank  power 

displayed  by  the  unit.  Real,  format 
limit  =  99. 

Front  1 i ne  trace  —  The  amount  of  defense  frontage  the 

unit  can  maintain.  Real,  format  limit 
=  99. 

Fighter  Aircraft  —  The  number  of  fighter  aircraft 

assigned  to  the  unit.  Real,  format 
limit  =  99 . 

Ramp  space  used  —  The  maximum  number  of  fighter  aircraft 

only  that  can  park  at  the  APOD. 
Integer,  format  limit  =  99. 

Transport  capability  —  The  thousands  of  ton-m i 1 es/day  the 

unit  can  move  supplies  from  the  APOD 
to  the  front.  Integer,  format  limit  = 
99. 

Unit  speed  —  The  distance  a  unit  can  move  itself  in 

one  day  without  any  assistance  from 
another  unit.  Integer,  format  limit  = 
99. 


Table 

A-3 . 

Ex  amp  1 

e  of 

Un  i 

t  1 

Data  1 

Fi  1 

e 

8  5  2  0 

rrPE 

NUMB 

OUT 

OVER 

BULK 

PAX 

SPL 

FP 

AT 

FT 

AC 

PK 

TP 

TV 

AB 

Cl 

ARBN  BTLN 

9 

0 

1400 

268 

1400 

149 

4 

19 

4 

0 

0 

0 

20 

1 

1 

ARBN  BTLN 

HQ 

3 

73 

0 

0 

305 

0 

0 

0 

0 

0 

0 

0 

20 

1 

-1 

AIR  ASLT  BTLN 

9 

152 

990 

574 

1960 

446 

6 

28 

4 

0 

0 

0 

18 

0 

1 

MECH  BTLN 

9 

2055 

3885 

151 

2052 

440 

8 

40 

6 

0 

0 

0 

14 

0 

1 

155MM  ART 

BTLN 

3 

139 

1243 

91 

710 

212 

3 

3 

0 

0 

0 

0 

12 

0 

-1 

F-16  SQDN 

3 

0 

249 

155 

472 

102 

8 

36 

0 

18 

48 

0 

0 

0 

0 

MOM  TRUCK 

CMPY 

3 

1098 

405 

270 

250 

55 

0 

0 

0 

0 

0 

182 

40 

0 

0 

ALCE 

2 

176 

2213 

244 

400 

73 

0 

0 

0 

0 

n 

0 

0 

0 

0 

DEEINlhJG  IHE  GOALS 


DEPLOY  per-forms  two  types  of  analysis.  The  -first  type  o-f 
analysis  determines  the  degree  to  which  the  Army  goals  can  be  met 
with  a  given  -fleet  o-f  aircraft  and  deployable  units.  The  Army 
goals  specify  levels  of  frontl ine  trace,  anti-tank  power,  and 
firepower.  In  addition,  an  Army  goal  may  include  the  transport 

of  a  certain  type  of  unit  to  the  front.  For  instance,  a  goal  may 
be  to  position  two  mechanized  battalions  to  the  front  by  the 
tenth  day  of  battle.  The  second  type  of  analysis  determines  the 
minimum  force  structure  necessary  to  accomplish  the  given  Army 
goals.  Here,  the  Army  goals  become  hard  constraints  while  the 
aircraft  become  the  goals  to  minimize.  The  menu  of  the  choice  of 
analysis  is  given  in  Table  A-4 .  When  performing  the  second  type 
of  analysis,  the  user  has  the  option  of  treating  all  aircraft 
equally  or  weighting  the  aircraft  according  to  cost  or  any  other 
means  determined  by  the  user. 

Table  A-4.  Menu  of  the  Different  Types  of  Analysis 
WHAT  QUESTION  DO  YOU  WANT  ANSWERED?  SELECT  ONE. 

1 .  FORCE  STRUCTURE-  USE  THE  LEAST  NUMBER  OR  LEAST 
COSTLY  AIRCRAFT  TO  ACCOMPLISH  THE  ARMY  MISSION. 

2.  ARMY  ACCOMPLISHMENT-  GIVEN  A  FORCE  STRUCTURE, 

ACCOMPLISH  THE  ARMY  GOALS  AS  BEST  AS  POSSIBLE. 

Once  the  type  of  analysis  has  been  determined,  the  different 
Army  goals  must  be  defined.  The  user  has  the  option  of 
specifying  levels  and  completion  times  of  front  line  trace,  anti¬ 
tank  power,  and  firepower  along  with  a  specific  type  of  unit. 
An  example  of  the  menu  to  define  the  goals  is  given  in  Table  A-5. 


A— 7 


The  first 


pr  i  or  i  t '/ 


goa  1  is  reserved  -for  certain 


constraints, 

therefore,  the  user  may  define  goals  from  2  to  11,  or  10 
different  goals.  The  following  list  contains  the  information 
necessary  to  define  the  goals: 

Type  of  goal 


Level  of  the  goal 


—  The  specified  goal  from  the  list  of 
possi b 1 e  goal s. 

—  The  amount  of  the  goal  desired.  Real . 


Period  of  completion  —  The  desired  completion  time  period  of 

the  goa 1 .  Integer. 


Table  A-5 .  Menu  to  Define  the  Goals 
SELECT  THE  GOAL  TYPE  FOR  PRIORITY  2 


—  1  FRONT  LINE  TRACE 

—  2  ANTI-TANK  POWER 

—  3  FIREPOWER 

—  4  AREN  BTLN 

—  5  AREN  BTLN  HQ 

—  6  AIR  ASLT  BTLN 

—  7  MECH  BTLN 

—  8  155MM  ART  BTLN 

**  IF  FINISHED  TYPE  0 


After  the  goals  have  been  defined,  the  user  may  view  the  goals 
that  were  defined.  Table  A -6  is  an  example  of  defined  goals. 


Table  A-6.  Example  of  Defined  Goals. 


GOAL 

# 

2 

IS 

25.0 

OF 

FRONT  LINE 

TRACE 

BY 

PERIOD 

1 

GOAL 

# 

3 

IS 

60.0 

OF 

ANT  I -TANK 

POWER 

BY 

PERIOD 

2 

GOAL 

# 

4 

IS 

130.0 

OF 

FIREPOWER 

BY 

PERIOD 

2 

GOAL 

# 

5 

13 

2.0 

OF 

MECH  BTLN 

BY 

PERIOD 

2 

EELiSlIlbillY  ANALYSIS 

This  section  describes  the  three  major  sub-areas  of  a 
sensitivity  analysis  or  changes  in  aircraft  data,  APOD  data  and 


deployed  units  data. 


To  determine  the  data  set  to  be  altered 


the  user  selects  the  desired  option  -from  the  main  menu  of 
sensitivity  analysis.  The  main  menu  -for  the  sensitivity  analysis 
is  given  in  TaDle  A— 7 .  Once  the  user  selects  the  desired  option, 
he  will  be  asked  i  f  the  data  set  to  be  altered  has  been  input 
either  interactively  or  via  an  external  file.  If  the  data  has 
not  been  entered,  the  user  is  directed  to  enter  the  data  set. 
Once  assured  that  the  data  is  in  DEPLOY,  a  submenu  is  displayed 
from  which  the  user  directs  the  appropriate  changes.  The 
submenus'  are  given  in  Tables  A-S  through  A-10. 


Table  A-?.  Sensitivity  Analysis  Main  Menu 
SENSITIVITY  MENU 


1.  AIRCRAFT  DATA: 

-  DELETE  AN  AIRCRAFT. 

-  CHANGE  NUMBER,  AVAILABILITY,  GROUND  TIME. 

2.  APOD  DATA: 

-  CHANGE  DISTANCES,  TURNTIMES,  COMBAT  VALUES. 

3 .  ARMY  DATA : 

-  DELETE  A  UNIT. 

-  CHANGE  NUMBER  AVAILABLE. 

-  CHANGE  FIREPOWER,  ANTI-TANK,  FRONT  LINE 

TRACE  VALUES. 


Table  A-8.  Aircraft  Submenu 
AIRCRAFT  CHANGE  SUBMENU 


1.  DELETE  AN  AIRCRAFT. 

2.  CHANGE  THE  NUMBER  OF  AIRCRAFT  AVAILABLE 

3.  CHANGE  THE  AVAILABILITY  OF  AN  AIRCRAFT. 

4.  CHANGE  THE  GROUND  TIME  FOR  AN  AIRCRAFT. 


REPLY  0  IF  NO  MORE  CHANGES  DESIRED 


Table  A-?.  APOD  Submenu 
APOD  CHANGE  SUBMENU 


1.  CHANGE  THE  DISTANCE  FROM  THE  US  TO  THE  APC'D. 

2.  CHANGE  THE  DISTANCE  FROM  THE  APOD  TO  THE  FRONT. 

3.  CHANGE  THE  COMBAT  VALUES  FOR  THE  PERIODS. 

4.  CHANGE  THE  MHE  PREPOSITIONED  AT  THE  APOD. 

5.  CHANGE  THE  MHE  PREPOSITIONED  AT  THE  FRONT. 

6.  CHANGE  THE  CAPACITY  OF  THE  ALCE. 

7.  CHANGE  THE  CAPACITY  OF  THE  RIGGERS. 

REPLY  0  IF  NC  MORE  CHANGES  DESIRED 


Table  A-10.  Deployable  Units  Submenu 


ARMY  CHANGE  SUBMENU 


1.  DELETE  A  UNIT. 

2.  CHANGE  THE  NUMBER  OF  UNITS  AVAILABLE. 

3.  CHANGE  THE  FIREPOWER  FOR  A  UNIT. 

4.  CHANGE  THE  ANTI-TANK  POWER  FOR  A  UNIT. 

5.  CHANGE  THE  FRONT  LINE  TRACE  FOR  A  UNIT. 


REPLY  0  IF  NO  MORE  CHANGES  DESIRED 


OUI-ELJI 

The  -final  section  o-f  this  chapter  will  examine  the  output, 
or  the  allocation  routine  -for  DEPLOY.  Because  o-f  the  common 
block  size  limitation  o-f  ASD's  CDC-750  ,  DEPLOY  and  the  allocation 
routine  are  two  separate  programs.  Therefore ,  files  are  used  to 
pass  the  needed  information  from  DEPLOY  to  FAGP.  There  are  three 
such  files,  TFILE,  IFILE,  and  IDFILE.  After  these  files  are  read 
into  PAGP,  and  the  goals  are  optimized,  the  results  are  written 
to  the  file  GPANS .  Each  of  these  files  will  be  discussed 
separate  1 y . 


A-10 


I£_L££:  this  represents  the  "top"  -file,  as  it  contains  the 

necessary  initial  information  for-  PAGP .  The  different  input 
parametrs  defined  in  TF1LE  are  as  follows: 

1.  The  number  of  priorities  considered. 

2.  The  number  of  variables. 

3.  The  number  of  equality  (real)  constraints. 

4.  The  total  number  of  constraints  (real  and 
inequalities). 

5.  The  number  of  named  variables. 

6.  The  number  of  constraints  for  each  priority. 

7.  The  dev i at  ion a 1  variable  to  be  minimized. 

8.  The  weight  of  the  deviational  variable. 

8.  The  number  of  non-zero  variables  in  each 

constraint  and  goal  . 

Once  these  parameters  are  read  into  PAGP ,  the  coefficients  of  the 
variables  are  inputted. 


1£1L£ :  This  corresponds  to  the  "input"  file,  as  it  contains 
the  values  of  the  non -zero  coefficients  in  the  constraints  and 
goals.  It  was  decided  early  in  the  project  to  read  in  the  non¬ 
zero  terms  because  approximately  94>I  of  the  matrix  was  zero. 
Therefore,  to  correctly  determine  where  in  the  matrix  the  non¬ 
zero  coefficients  should  be  placed,  the  row  and  column  were 
specified.  The  format  of  the  file  contains  two  integers  followed 
by  a  real  number.  The  integers  specify  the  row  and  column 
respectively,  while  the  real  number  is  the  coefficient  value  to 
be  placed  in  the  matrix.  As  a  check,  the  row  value  read  in  was 
compared  to  the  row  on  which  PAGP  was  presently  operating.  I  * 
the  two  row  values  were  different,  an  error  message  was  issued 
and  the  program  aborted.  Finally,  by  IFILE  containing  only  the 
non -zero  coefficients,  the  file  creation  time  was  reduced  to  one- 
tit  th  the  normal  creation  time,  and  the  storage  space  was 
decreased  to  one  twelfth  the  normal  size  had  all  the  zero  and 
n  on  — z  ero  t  e r ms  be  e  n  i nc i u de  d  in  the  file.  Th  e  sma 1  1 e  r  s  t  or  age 
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space  allowed  the  tile  to  be  saved  tor  tutu re  analysis. 

I  DF  T I  F :  This  represents  the  “ i den t i t  i  cat  i  on  "  tile,  as  it 
identities  the  variables  with  a  spec i tic  name  and  meaning.  By 
inputting  the  names  ot  the  variables,  the  output  is  much  easier 
to  read,  as  the  values  ot  the  variables  are  matched  with  the  name 
ot  the  var i abl e . 

fiPANF :  The  tinal  tile  to  be  discussed  is  the  output  tile 
which  means  ”6P  answers."  Here,  the  subproblem  or  the  last 
priority  with  which  the  optimization  concluded  is  specitied  along 
with  the  number  ot  constraints  that  were  considered.  At  ter  this, 
the  non-zero  decision  variables  and  their  values  are  specitied. 
The  last  portion  contains  the  achievement  ot  the  ditterent 
priorities  in  relation  to  the  desired  achievement.  An 
explai nation  ot  the  output  is  given  in  Chapter  VI  along  with  an 
example  ct  GPANS  in  Table  6-6. 


APPENDIX  B 


AGP INC  - 


ACINF  - 


AC I NS  - 


APDINC  - 


AF'DINF  - 


APDINS  - 


ARMINC  - 


ARM INF  - 


ARM I NS  - 


ELDFMX  - 


CONST R  - 


DELELCil  £iibr.jjii±i.n£  L-i-S-lj-nci 

Called  by  CHANGE  and  makes  the  desired  changes  in  the 
aircra-ft  data  -file. 

Reads  aircra-ft  data  -from  an  external  user-def  i  ned 
-format  ted  file. 

Allows  the  user  to  enter  aircraft  data  interactively 
and  save  the  data  in  a  user-defined  formatted  file. 
Called  by  CHANGE  and  makes  the  desired  changes  in  the 
APOD  data  file. 

Reads  APOD  and  miscellaneous  data  from  an  external 
user-defined  formatted  file. 

Allows  the  user  to  enter  APOD-related  data 

interactively  and  save  the  data  in  a  user-defined 

formatted  file. 

Called  by  CHANGE  and  makes  the  desired  changes  in  the 
deployable  units  data  file. 

Reads  deployable  units  data  from  an  external 
user-def i ned  formatted  file. 

Allows  the  user  to  enter  deployable  units  data 
interactively  and  save  the  data  in  a  user-def i ned 

format  ted  file. 

Builds  the  pointer  matrix  from  with  each  variable  is 
assigned  to  an  aircraft,  unit,  or  a  slack  or  surplus 
v  ar i ab 1 e . 

Builds  the  inequality  constraints  from  the  inputted 


da  t  a  files. 


CKANGc  — 

FMAT 

GOALS  — 
HEADER  — 

LIMITS  — 


MGOAL  — 

POST  C  — 


PENT 

REALC  — 

SORTIE  — 
WRIT 


Displays  the  possible  options  to  alter  input  data,  and 
then  calls  the  necessary  subroutine  to  alter  the  data. 
Formats  the  -files  for  PAGP . 

Builds  the  goals  determined  in  MGOAL. 

Prints  the  name  o-f  the  program  when  the  program  is 
started. 

Answers  the  -following  three  questions: 

1.  What  is  the  largest  size  o-f  cargo  that  can  be 
del  ivered  directly  to  the  -front? 

2.  Are  there  any  aircraft  capable  of  airdrop? 

3.  Are  there  any  airborne  units? 

Displays  the  different  goal  options  and  solicits  the 
goals  from  the  user. 

Called  after  all  the  changes  to  the  data  have  been 
made  in  CHANGE  and  asks  if  the  all  the  necessary  data 
has  been  entered.  If  all  the  data  has  not  been 
entered,  the  subroutine  directs  the  user  to  enter  the 
appropriate  data  or  data  files. 

Called  from  CHANGE  and  prints  on  the  screen  the  data 
file  currently  being  worked  on. 

Builds  the  equality  constraints  from  the  inputted  data 
files. 

Builds  the  sortie  constraint  for  the  aircraft. 

Called  by  CHANGE  and  writes  the  desired  data  file  to 
an  external  file. 
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A£££MDi.I£  £ 


L£ar:-L.ab±a 
AI J<NE3, 
AYAILC I > 

CPI (L) 

D I  ST  ( N ) 

EA3< I , K ) 

FNAME 
GL3 (N , J  > 

GT  (  I  ) 

I  A£(  I  ) 

IDFILE 

I YP 

KARG< I  ,  K 

KG 

K7S< I ) 

LL ( I , N) 

LMT ( N  > 


DEELGY  Uac-Labla  Llsl-LHig 
D^llalllnn 

IP)  The  matrix  that  contains  the  constraints. 

The  percentage  o-f  aircraft  of  t/pe  I  that  is 
available  for  the  deployment. 

The  Combat  Power  Index  associated  with  period 
L. 

The  distance  from  the  US  to  the  APOD  for  N=1 
and  from  the  APOD  to  the  Front  for  N=2. 

The  relative  ease  with  which  cargo  of  type  K 
can  be  offloaded  from  aircraft  type  I. 

The  file  name . 

The  matrix  which  contains  the  information 
about  the  different  goals. 

The  ground  time  of  aircraft  type  I. 

An  indicator  variable  for  airborne  units. 

The  file  that  is  created  to  identify  the 
variable  number  with  a  name. 

The  number  of  units  that  are  deployed  to  the 
fron t  . 

,N)  The  tonnage  capacity  (N=l>  or  passenger 

capacity  <N=2>  of  type  I  aircraft  for  type  K 
c  ar go . 

The  matrix  that  contains  the  names  of  the 
different  cargo  types. 

The  TAS  of  type  I  aircraft. 

The  1 ower  limit  of  missions  <N= 1)  or  cargo 
type  <N=2)  of  type  I  aircraft. 

An  indicator  for  the  largest  size  of  cargo 
that  can  be  transported  via  direct  delivery 
(M=l ) ,  or  an  indicator  variable  for  airborne 
capable  aircraft  <N=2)  or  units  (N=3) . 


LP 

lpr<n> 

LPS(N,K, 

LPSL(L) 

LPU( I ,M , 
LPX < I , J, 

LLK  I  ,N) 

MD(M) 

MHE  <  I  ) 
MS <  J) 

NAC ( I > 

NAME  < I ) 

NAT  < I  ) 

NC<  I  ) 
NCI < I ) 

NFP( I ) 

r-jcP 

NDC' NEQ 

NED 


The  period  length  in  days. 

The  pointer  array  -for  the  slack  and  surplus 
variables  tor  the  Rigger  Constraint. 

L>  A  pointer  matrix  -tor  the  slack  and  surplus 

var i abl es . 

A  pointer  matrix  -for  the  slack  and  surplus 
v  ar i abl e  s . 

L)  The  pointer  matrix  for  the  different 

dep 1 oyabl e  units. 

K.L)  The  pointer  matrix  for  the  different  aircraft 

types. 

The  upper  limit  of  mission  type  (N=l )  or  cargo 
type  <N=2)  of  type  I  aircraft. 

The  matrix  that  contains  the  names  of  the 

different  modes  of  transportation. 

The  pallet  capacity  of  type  I  aircraft. 

The  matrix  that  contains  the  names  of  the 

different  missions. 

The  number  of  type  I  aircraft  in  the 
inventory. 

The  matrix  that  contains  the  name  of  the 

different  aircraft  types. 

The  amount  of  anti-tank  power  that  unit  type  I 
projects. 

The  number  of  constraints  in  goal  I. 

The  combat  indicator  to  distinguish  between 
combat  and  combat  support  units. 

The  amount  of  fire  power  that  unit  type  I 
projects. 

The  number  of  real  (equality)  constraints. 

■  The  deviational  variable  to  be  minimized  for 

constraint  number  NEQ. 

An  index  variable  for  the  equations. 


NFP  <  I  > 


The  amount  of  fire  power  that  unit  type  I 
projects . 


NFT  < I  ) 

NHA(N) 

NHQ(N) 

NID 

NMAC 

NP 

NPAL 

NPK( I > 

NPRIT 

NF'RK  <  Y  ) 

NT(NEQ) 

NTAC(Y) 

NT  ON  (  I  ,  K) 
NT  P  <  I  ) 

NT',1';  I  > 

NUN ITS 
NUNT < I > 
NIj’GT  (NEQ> 

OFILE 

RC 

RHSTNEG' 


The  amount  of  defensive  frontage  that  type  I 
unit  can  maintain. 

The  amount  of  MHE  prepositioned  at  the  APOD 
<N=1)  and  at  the  -front  (N=2> . 

The  position  c-f  the  headquarter  units  in  the 
unit  array. 

The  number  o-f  named  variables  in  the  -file 
IDFILE. 

The  number  c-f  different  aircraft  types 
considered  in  the  model. 

The  number  of  periods  considered  in  the  model . 

The  number  of  pallet  equivalents  the  ALOE  unit 

can  offload  per  day. 

The  number  of  type  I  aircraft  required  to 
saturate  the  APOD . 

The  number  of  priorities  in  the  model. 

The  maximum  number  of  fighter  aircraft 
assigned  to  unit  Y  that  can  park  at  the  APOD. 

The  number  of  nonzero  terms  in  equation  NEG. 

The  number  of  fighter  type  aircraft  assigned 
to  unit  type  Y. 

The  number  of  tons  of  cargo  type  K  per  unit  I. 

The  number  of  ton-miles  per-  day  that  unit  type 

I  can  transport  supplies. 

The  number  of  miles  that  unit  type  I  car.  move 
per  day. 

The  number  of  units  considered  in  the  model. 
The  number  of  type  I  units. 

The  weight  of  the  deviational  variable  for 
constraint  NEQ . 

The  output  file  that  contains  the  constraints 
in  readable  form. 

The  capability  of  the  riggers. 

The  r i gh t  hand  side  of  constraint  NEQ. 


T INTER 

<  I  > 

The  turn  r,  me  -for 
intertheater  irns;i 

a i rcrat t  type 

on  . 

I 

on 

an 

TINTRA 

<  I  ) 

The  turn  t  i  me  -for 

i  n  t  r  a  t  h  e  a  t  e  r  mi  551 

aircraft  type 
on  . 

I 

on 

an 

L'NAME  < 

I  > 

The  matrix  that 
di  fterent  units. 

contains  the  names 

of 

the 

UTE  (  I  , 

T  , 

The  UTE  rate  -for 

type  I  aircraft 

on 

miss 

i  on 

t  /  p  e  J  . 
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PROGRAM  THESIS 


25  NOV  85 

THESIS  WORK  B‘;  CAF'T  DAVID  0 .  Ta'I’E 


CHARACT  e.a  NAME  1 1 0  •'  *o  ,  UNaME  1 1  -» 1 4  ,  GNAME  \  3  )  *  1 4 ,  FNaME^c 
CHARACTER  M 3 < 4 ) * 5 , K G < 5>»4,MD<3>*5 

C JMMCN/ACR.  NMaC ,NAC \  1 0 )  , AVA I L \  1 0 )  ,UTEI1G,4)  , KARG<  10,5,2/  ,KT3<  10'1  « 

C  GT-UO)  ,MHEv  10.*  ,NFP<  10)  ,NPRK<  10) 

C  OMMCN,  A  P  D/  D I  ST  <  2 )  ,  T I  NT  E  R  i  0 ;  ,  T I  NT RA  \  i  0 ;  ,  Eh  S  <  1  0 , 4  >  ,  C  F I  ( 4  j  , 

C  i  I  HA  •'  2  ;>  ,  NP- -  .  R  C  ,  GLS 1 9 , 3  j 

CC'YHCN/ ARM/NUN  ITS  ,NUNT  ( i  0 )  ,  NT  ON  1 1  i  f5.<  ,NF?<10>  ,NATU0)  ,NFT(10)  , 

:  n~a c •;  i o  , n f k •; i o :> , nt ? < 1 1 , ntv ■: :  i ) , : a b •  :o> , n c k  : o  • ,  •  y p , n h q < 2 > 

CCMMCN/TaB/NF  ,  LP ,  I P  ,NCR  ,NEQ  ,NFRI7 ,  LLC  0 , 2  -  ,  LU-:  1C  ,  2  •  ,i_Pu  1C  ,4,5,4  -  , 
C  L-C '10,3,4. , A I J (  1 50 , 300 ) ,RHS<150.> , IPS. 2,5,4' ,LPSL(4; ,L?S<10) , 

C  ISO.'  , LMT I  3 >  ,NC'1 10)  , MUST <  ISO."1  ,NDV<  150)  ,NID 

C  UMMON/CHR/NFME  ,  UNAME  ,  GNAME  ,MS  ,  KG  ,MD 

+  +  4  +  *  |\j  GOES  HERE  it  ib 

>-  THIS  GIVES  THE  OUTPUT  INTO  A  HARD  COF'  I-  DESIRED 


OPEN'  1 2 ,  F I  LE=Ff  IAM.E  1 
RE:  i  IND".  I  3 ; 

Fv  !►-.  •,E=  I  OF  I  I_E 

OF  El  t  v  I  7  ,  F I  lE=p'  iAME  ■ 

c ’ •  ;r-  -  '  "  , 


-  ii  j  -■  j  *  j  i/  2  j  j  j  2  v  2  j  j1  2  J  3  2  3  3  S'  S  3  3  3  3  3  3  3  3  a*  333333  3  3  3  j  j  3  3  3  3  3  3  3*  3  3  3  3  3  2  3  2  2  3  3  3  3  3 
C H E I r  SEE  I-  FAS-  RUN  DESIRED 


=  c  I N”  ■*  ,  DESIRE  FAST  RUN?  >.  i=Y/0=N..' 
READ  ♦,NF;-3 
:r  NF-tS  .  EQ  ,  1 .)  THEN 
Ca L  u  I NT . A  L 
.  - _ AUlNr 

Chl_  aRMINF 


j  j  i  j  s  ai  j  a;  j  a  j  j  ai  j  ii  i  j  ji  j  3  3  3  3  3  3  3  3  3  3  3  3  3  3  £  3  3  j/  aui  s  2  ii  3  3  3  a  3  3  or  uj  3  a  2  J'  3  3  3  2  J  3  j  3  3  a  3  3  s  3 


rMLtr, 


CAl_  IN? 


•  CF  FE.: 

:f  ne-des 


ERIODS  AND  PERIOD  LENGTH 


.Nr ,  TIME  PERIODS,  \L?,  ^ 


u:  1 1 J 


UJ  Li  I  UJ 


IJl  UJ 


I U  Ll_ 


Jt  4 ,  a  :  \  U  t  . 

r.*,.N  i  * ,  JO  !  UU  WANT  T u  CONTINUE  •  •.  1=  .  ,  L~i 
RE.-il1  ■*|NRE; 

I  ~  ,Nr.E3 .  iiT .  1 . OR  .  NRE - .  LT  .  0 )  THEN 

PrXN;  * ,  ■'  Nu  i  A  Vhl.  :  D  REPLY,  PLEASE  ENTER  ( 1  =  Y  Q=N  .•  . 

GO  TO  10 
END  I F 

IF'.NRES.EQ.O)  STOP 

5K  IF  DESIRED  TO  SAVE  DATA  IN  A  FILE 
PRINT  6 

PRINT  * ,  '  DC  YOU  WANT  the  Data  ShVED  in  AN  EXTERNAL  FILE?*!  1= !  1 0= 
R  Em  D  * , N  S  AV  E 

I F  •: NSAVE .  GT  .  1  .  OR  .NSAVE .  LT  .  0 )  THEN 

PRINT  * ,  'NOT  A  VALID  REPLY,  PLEASE  ENTER  <  1=Y/9=N)  .  ■' 

GOTO  12 
END  IF 

ir'.NSAVE.EQ.l)  THEN 

PRINT  ENTER  THE  NAME  OF  THE  FILE  YOU  WANT  THE  DATA  SAVED' 
CHARACTERS  MAX)" 

READ  2.FNAME 
0  P  EN  < 1 5 , F I L  E=  FNAM E  1 
REWIND( 15) 

END  IF 

ART  THE  INPUT  PROCESS 


1  =  0 

PRINT  6 

PRINT  *,'I  AM  READY  TO  ACCEPT  YOUR  INPUTS,  AND  WILL  PROMPT  YOU 
THE  DATA.'" 

PRINT  * 

PRINT  *  ,  ' - 

PRINT  *  ,  ' —  EN’Er.  .No  AIRCRAFT  DaTh 

PRIM’  *,  - 


HE  A  ^  .auRat  .  NAME  .  *  I  ~  FINISHED  INPUT  0  .  ■' 


I F  ,  F I  R ST  .  E 0  .  '  0  ' GO  TO  20 
I  =  IM 

NAME-,  I  >  =  F I R ST 
PRINT  * 

PRINT  * ,  •'  INPUT  THE  NUMBER  OF  ,NaME'-  I )  ,  '  IN  THE  INVENTORY  .  ■' 
READ  *  ,NAC  I  > 

PRINT  4 

PRINT  #,  'INPUT  THE  AVAILABILITY  (READ  OF  THE  '  ,NAME  '  I  >  ,  •'  ,  <0. 

RE- 1  ♦ ,  AVa I L -  I  : 

IF’, AVA IL-;  I  >  . LT  . 0  . UR  . AVa I L ■  I  ■  . G~  ,  1  •  THem 


l-  >,  H,L 


END  IF 
PRINT  + 

r  R I M ,  * ,  I Nr LT  ’HE  UT E  Fa’E  • " ' 
pR In’  *,  D  .  REuT  DtAl'-’ER  l . 


Tv! _ J-.  , 


Lij  in  it:  n:  M_ 


INFORMS-, ON  ABOUT  THE  strategic  aircraft 

CHaR.ACTE  R  NAM  E<  19.  +  ;■ ,  H  D  3  +  ?  7  ,  FI  JAM  E  +  6 ,  U!  JAM  E  •.  1  1 ■  +  1  A  ,  5NAM  E '.  3 )  *  1 4  , 

C  MS<  4) *5 , KG<5> #4 ,MD<  3) *5 

CCMMGN/ACF/NMAC,NAC'  10)  ,AVaI  _•!  10  )  ,  UT  E  <  1 0 , 4 )  , KARG < 1 0 , 5 , 2)  , KT 3 ■!  1 3  ■ 
C  GT< 1 0 )  ,MHE <  1 0  ■  ,NF? •  1 0 .)  ,NPRK •  1 0  . 

C C MM ON/ C HR/NAME , UNAME , GNAME ,MS , KG ,MD 

0 

C  +  *  FINE  THE  FILE  NAME  WITi  THE  CA~h 
F  R I  NT  9 

PRINT  *, 'ENTER  THE  FIlE  NAME  <4  CHAR  MAX)  WITH  THE  AIRCRAFT  DATA 

READ  2.FNAME 

OFEN<  10  ,FILE=FNAME) 

REWIND';  1 0 ) 

C 

C++  ASK  IF  THE  FILE  IS  TO  BE  VIEWED 
C 

PRINT  9 

PRINT  + ,  '  DO  i'OU  WANT  Tu  ScE  THE  INPUT  FILE?  <  1=Y/Q=N) 

21  READ  +  .JVU 

I  F  •:  IVU  .  GT  .  1  .  OR  .  I VI .  LT  .  0  >  THEN 

PRINT  *,'NOT  A  VALID  REPLY,  PLEASE  ENTER  (i=Y/0=N)./ 

GO  TO  21 
END  IF 

READ  IN  THE  DATA  FILE 


AL>  *:  1  0  ,  +)NMAC 

A  D  <19,4 .  ■  H  D 6 

ITE  <  1  3  ,  +  ,'NMAC 
I T  E  ( 1 3  •  4  H  Z'  3 
•;  IVU. E-3.il  THEN 
PRINT  9 
PRINT  +,NMAC 
PRINT  4 , HDG 
END  IF 

DC  6  I=I ,NMAC 

READ  <10, 3  >  NAM  £  <  I  -•  ,  MAC  <  I )  ,  AVA I L  <  I )  ,UTE<  1,1)  ,UTE<  I  ,2 )  ,  UT  Ed,  3 )  , 
C  UTE<  1,4)  ,  KARS'!  1,1,1)  , KARG(  I  ,1  ,2)  , KARG';  I  ,2,1)  ,KARG<  I  ,2,2)  , 

L  KaR:.-  '.I  ,3,1)  ,  KARG'-  I  ,3,2)  ,KAR5<  I  ,4,2)  ,  KT3C I )  ,  GT  <  I )  ,MHE(  I )  , 

C  NFF •  I )  ,NPRK< I  ■ 

KARG''  .  ,3,1  KA.RbV  I  ,  ;  ,  1 
KARS'!  I  ,5,2)  =  KARG'!  1,3,2'' 

WRITE <  13,5 ) NAM E •!  I  >  , NA C •!  I )  ,A'- )A IL'!  I )  ,'JTE’.  I  ,  1 )  , UT E <  1  ,2)  , UT E <  I  ,3) 
C  UT E •!  1 ,4)  , KARS'!  1.1,1) , KARG-!  I  ,  1  ,2  ■  .KARS'!  1,2,1)  , KARS'!  I  ,2,2)  , 

C  KARG*!  1,3,1),  KARG-  1,3.2'',  KaRG-'  1,4.2), KTS<  I ) ,  GT <  I )  ,MHE<  I )  , 

C  NFP1. 1  :>  ,NPRK <  I . 

I  z '■  IVU  .  EQ .  0  GO  TO  6 

PRINT  8  .NAME  .  I  >  ,NAC<  I .)  ,AVAIL<  I )  .UTE<  1,1)  ,UTE<  I  ,2)  ,UTE<  I  ,3)  , 

C  UTE! 1,4-, KARG <1,1,1- , KARG' 1,1,2), KARG  <1,2,1), KARG < I ,2,2 ) , 

C  KARS'  1,2,1'  ,KaFG  ,  I  ,3,2/  .KARS'.  I  .4,2)  ,KT3<  I  >  ,  GT <  I  )  ,MHE<  I )  , 


CO  co 


c  *  ■* 


C  li-iL'E 

FORMAT'.  '  L ? R ■'  ,12/)=''  ,216) 
WRITE’,  13,*)"'! P=  "  ,  I P 
CLOSE- 17) 

RETURN 

END 

+  +  +  +  t  +  +  +  +  +  ^ 


S  L*  B  R  0  UT I N  E  L I M 1 7  3 
■: I S  DETERMINES  THE  LIMITS  OF 


c 

LM 

j,'  *  ,  • 

LARGES.  T  e  F  E  OF 

CARGO  THAT  A  DIRECT  DELIVER’.'  AC 

c 

CAN  DELIVER 

c 

LM 

j  ,■  o  i  • 

1  IF  THERE  ARE 

ANY 

AIRDROP  CAPABLE 

AC,  ELSE=0 

LM 

«  i » 

1  I-  THERE  ARE 

ANY 

AIRBORNE  UNITS, 

ELSE=0 

COMMON/ 

ACF/NMAC  ,NAC-(  1 0  > 

,AV 

A I L ( 1 j )  ,  UTE  0 10,4 

)  , KA  R 5 ( 1 0 ,5,2) 

,KTS 

r 

gt;  i 

0)  ,MHE>;  19)  ,NFP<  1 

03, 

NFRKC 1 0) 

cc 

MMCN/ 

ARM/NUN  ITS, NUMT < 

1 0 ) 

,NTCN( 1 1 ,5) ,MFP( 

1 0 ) ,NAT < 1 0 ) ,NF 

t  i  o 

c 

NTAC 

(10 ) ,NPK( 1 0 ) ,NTF 

’,  1 1 

)  ,NT'/’<  11),  IAB<  1 0 

)  , NCI (10) , I YP , 

NHQ 

r  / :MM  HM 
Lwi  i  '.*!  *■' 

TaB/NP • LR , IP ,  NC  R 

,ME 

3  .NF'RIT  ,  LL(  10,2) 

,  l  J  .  0  ,  i ,  >-  F  a 

•74 

c 

LPU( 

13,3/.'  ,AI  J(  150  , 

30  C 

•  ,  RHS  1  50 )  ,LPS‘3 

,5,4} , LPSL(4) , 

u  T  T  \ 

r 

NT  ■:  i 

53  > ,lmt;3> ,nc; ic 

3  ,N 

iWGT(  1 50 )  ,NDV  <  1 50 

)  ,NI D 

DO  20  I=1,NMAC 

IF’ILLC  I  ,  1  > .  3T . ! )  GO  TO  12 
IF(ID.EQ.O)  THEM 
ID*  I 

LMT  ( 1  :> = L  L  ■:  I  ,  2 ) 

GC  TO  12- 
END  IF 

i fill*; :  ,2>  .lt.ll*;id,2>>  then 

I  D=1 

lmT'. i. '=!■-■::  ,2> 

END  1  = 


!  =  •; L ‘2’  I  ,  i  >  .£5.4)  LMT ( 2 )  =  1 


CONTINUE 


DO  20  1  =  1, NUN ITS 
IF;  IAS  C  !'•  .  EG  .  o : 
LMT ( 3 ) = 1 
CONTINUE 


bU  i u  LU 


WRITE;  13, 2  2,’ LMT ;  1.)  ,  LMT  ■; . 


DC  60  !M=;  ,MF 

lru: :  ,m,n.)=:  = 

WRITE ‘>13, 42) LP U •  I  , M , M )  , Ur i£M E I )  , M D < M )  , N 
WRITE*.  17 , 42)  LPU'.  I  «M  ,N  ,'JNAMEI  I  .•  ,MD\;'I.>  ,N 
I F ( LANS .  EQ .  0  >  60  TO  60 
PRINT  62.LPLK  I ,M,N  , UNAME 1 1 ) ,MD<M) ,N 
CONTINUE 
CONTINUE 
CONTINUE 

F OP' 'AT ■  I a  ,  3  . A 1 4 , 2X  ,  A5 , 1  3 
NID=IP 

BU I  wl1  THE  LPS-NATRIX 

FOR  THE  SHIPNENTE-  DIP'-T  ,AROC-,ASN 
FOR  THE  SUFFLI E3 < K=5 > -THTE , FRONT ,APOD 
CO  64  1=1,3 

FOR  OUT,  ONER.  BULK,  PAX,  &  SUPPLIES 
DC  65  K=l,5 

DC  NCT  INCLUDE  ( 1  .  .4)  IF  NO  DIRECT  DELIVERY  NOR  AIRDROP  CAPABIL 
IF  -IK.  ME.  5  THEN 

: f •; lmt •;  i  > .  lt  .  i  .and . :  .e:.i >  go  to  >5 

I F «,  LNT  :  2  ■  .  E  j  .  0  .  AND .  I  .  EQ .  3  >  60  0  0  65 
END  IF 

FOR  EACH  PERIOD 

DO  66  N=i ,NP 
I P= I P  +  1 

L?S< I , K ,N)=IP 

WRITE-:  12, 6?:- 1  ,K,N,!P,tPS<  I  ,K,N> 

I F  •.  LANS  .  E3 . 0  >  GO  TO  66 
F R I NT  67 , 1 , K , N , 1 ? , L ? S < I . K , N > 

Owi't  :  a  i  *  L-  DE 

CONTINUE 

CONTINUE 

’-1  r.1  H  '  .  L  ~  j  i  ^  ,  J  ,  *1  .  6  .* 

BUILD  THE  L? Si. -MATRIX 
DO  70  1=1, NP 

ID=IFrl 
LPSL' I)=I? 

WR I T E 1  6 , 7 1  .> .  ,  IF  ,w?SL".  I  • 

I F I  LANS . EQ . 0  >  GO  TO  70 
PRINT  71  , 1  ,  IP  ,LPSL*:  I  > 

CGNT INUE 

FORMAT ’  LPSL  1  '  ,12,')='  ,21c) 


BUILD  THE 


-IX,  FOR  RIGGER  SLACK  &  SURPLUS 


DO  80  1  =  1, NP 


D-i  i 


CON :  IhL’E 

1“  '■  LT E  .  I  ,  4 '}  . ME  .0.0:  GC  T  C 

IF  rjTE-.I  ,3>  ,NE . 3 . 0 THEM 
LLK  I  ,  1  >  =  2 
GO  TO  24 
END  IF 

IF  :  JTE-'.I  ,2;  .ME.  0.0:  THEN 
LLK  I  ,  1  )=2 
GO  T u  24 
END  IF 

LU\ I , 1 := 1 

I  c  :  i  :  :  ’  i  i  |  c  mi,'  t  *  i  nr-  - 
PRINT  *, 'ERROR  IN  LL  AND  L 
FOR  2=KARG0 
FIND  THE  LOWER  LIMI~ 
l  l  :  .  ,  _ :  —  * 

LLK  I  .2)  =  4 

IF  < KARG*:  1,1,1)  .NE  .0.0)  GO 
IF  < KARG( 1,2,1) .NE.0.0)  TH 
LL>:  I  ,  2>  =  2 
GG  TO  23 
END  Ir 

IF  < KAR G ( I , 3 , 1 ) . NE .0.0 >  T H 
LL  I  ,2  =  3 
GC  TG  25 
END  IF 

LL ( I , 2)=4 
L  LI  (1,2 :  =  4 
50  T  G  30 

C  CN~  I N  !j  E 

FIND  THE  UPPER  LIMIT 

IF  < KARG: I ,4,2- .NE.0.0 ■  GC 
IF  ( KARG I  ,3,1)  .NE  .0.0:  TH 
LLK  I  ,  2 :  =  3 
60  TO  30 
END  I- 

IF  <  KAF.G'1 1 , 2 , 1  >  .ME  .0.0)  TH 
LLK  I ,2 '  =  2 
GO  T  0  30 
END  IF 

i_  •  |  i  2  ’>  =  1 

C  ONT I N  U E 

CHECK  THE  LIMITS 

IF  ( L L ( I  ,2>  .LE.LLKI  ,2)  •  GO  T 
PRINT  * , 'ERROR  IN  LL  AND  L 
CONTINUE 


PRINT  *  ,  BUI  LJ  THE  r  I  _  E~  Fjr  P-uF'  !=.',?=;. 

RE;HD  +,lans 

I F < LAME . E Q . 0 )  GO  TO  9? 

C++  BUILD  THE  FILES  FOR  PAGP  INPUT-  311 
CALL  FMAT 

!  2  F  0  RMAT  <  ////////////////  /  ////.  -'/ ) 

9  9  END 

|“  '•  A  \  A  •S  .  \  .S  A  A  A  A  .\  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  /  .  A  .  '  .  \  A  A  A  A  A  A  A  , 

r.  ♦♦  Qj;: 

S'J 5 ROUTINE  INTIAL 

C  +  +  INITIALIZES  ThE  PARAMETERS  AND  MATRICES 

C  HA  Rrt CT  E  R  NAM E  < 1 0 ) * 6 , UNAM E  < 1 1 ) *  1 4 , GNAM E C 3 ) *  1 4 
CHARACTER  MSC  4)  *5  ,  KGC5)  *4  ,MD-:3)*5 

C CMM ON/ A C F/TiMA C  ,NAC  ( 1 0 )  ,  AvA  I L  < 1 0 11  ,  UTE  -1 1 0 , 4  >  ,  KARG  ■10,5.2  >  .  ¥~  l  < 
C  GT i 10) ,MHE< 10) ,NP?< 10) ,NPRK< 10) 

C  OMM  GN/A  F  D/  D  I3T(2) , T 1 NT  E  R  C 1 0  >  ,  T I  NT  RA<  i  0 )  ,  EA  S  •;  1 0 ,4) , CP ! <  4  >  , 

C  NHA *1 2 ) ,NPAL , RC , GLS(  9,3) 

CCMMGN/ARM/NUNITS  ,NUNT(  1  0 )  ,  NT  ON  <  11,51'  ,NF?<  1 0  >  ,NA*(10  »  ,NF"'  ■  1 0 
C  N-hCUG)  .NPKCIO)  ,NT?U1)  ,NTN<  1 1 5  , 1  ABC  10.  ,MC  I  <  1 0  >  ,  IYP  ,NHQC  1 
COMMCN/TAE/NP  ,  LP  ,  I P  ,NCR  ,NEQ  ,NPR  IT,  LL  <10,2)  ,  L  J1. 1  Q  ,  2  >  ,  L-X  •,  10,4 
C  LP.-  - 10 ,3 ,4)  ,  A I J  <  150 ,300 ,  RHS<  150)  ,LPS<2,5,4;  ,L?SLC4)  ,L?RCI 
C  NT  CISC  > , LMT C 2 ) , N C  C 1 0 > , NW GT  C 1 5  0  > , N DC < 1 5 0 ) , N I D 
3  GMM CM/ C  H  R/NAM E , UNAM  E , GNAM E,MS,KG, M D 

C++  INITIALIZE  THE  TERMS 
C++  NORMAL  PARAMETERS 
NP=4 
LP-5 
NFRIT= 1 
DC  10  1=1,10 

cc  :z  k=:  ,4 

EAS1'  I  ,  K)  =  l  .0 

12  CCN'INUE 

10  CONTINUE 

C++  ZEROIZE  THE  INTEGERS 
NMAL=L' 
if  i  UN  i  c-—  :J 
I  P=0 
ME  0=0 
NCF:=-j 
I  YP=0 
NHA'.:  1  )=0 
NHA  C  2 .'  =  0 
NPAL=0 
DC  13  1  =  1  ,2 
LMT \ I : =0 

13  CONTINUE 

C++  ZEROIZE  THE  AIJ  AND  RHS-MATRIX 
DG  22  1=1,150 
DO  24  J= 1 , 30  0 
AIJ1  I  ,  J  i  =  0  .  0 


0-6 


i 


0 


PRINT  * ,  E:-4~E=  THE  DESIRED  NUMBER.  GF  '  ,NaME'  NFEI 
READ  *  ,NAC  .NRES. 

RETURN 


B 


C 


u-  ■ 

t  ■ 

. 


an 


CHANGE  THt  AVaILAEIlI  .  r  OF  AN  AIRCRAFT 

PR  IN  i  * ,  'SELECT  THE  AIRCRAFT  YOU  DESIRE  TO  CHANGE  THE  AVAJLAE 
1  OF.' 

P  R I  NT  <  ,  ' - 

DO  42  1=1 ,NMAC 

PRINT  7,1  ,NAME'  I )  ,  AU'A  I  L  \  I .■ 

ULNT  INUt 
PRINT  + 

PRINT  *,'0  IF  NONE.' 

READ  *  ,NRE5 

I F \NRE5  .  LT . 0 . OR .NRES . GT . NMAC  >  THEM 

PRINT  * , 'NOT  A  VALID  RESPONSE :  ENTER  AGAIN.' 

GO  TO  44 
EM D  IF 

I  F'INRES  .  ED  .  0  RETURN 
PRINT  * 

PRINT  *■ 

PRINT  *, 'ENTER  THE  DESIRED  AVAILASILITY  <□..!)  OF  THE  '  ,NAME' 
RE-iD  * ,  RES 

I F  ■,  RE  S  .  LT  .  0  .  OR .  RES  .  GT  .  1  :•  THEM 

FEINi  *  ,  'NOT  A  VALID  RESPONSE1  EM  ■  ER  AGAIN  ( 0  .  .  1 )  . ' 

GO  T U  4c 
END  IF 

AVA I L I N R  E  S  > — R  E S 
RETURN 


NRES) 


T I M  E  C F  AN  AIR  C R A  F . 

THE  AIRCRAFT  YOU  DESIRE  TO  CHANGE  THE  GROUND 


'  T  M  £ 


r  n  .  -i.  *  ,  - 

DC  52  1  =  1, NMAC 

PRINT  7 , 1  , NAMED  I  >  .GT <  I ' 


c  ^ 


PRINT  *,'0  IF  NONE.' 

READ  NRES 

I  ~  \  NR E  z  .  LT  .0  .OR. NF.E U  .  GT  .NMAL  >  THEN 
PRINT  »  ,  'Mu""  ~  A i_ I ! 

GO  TO  54 
END  IF 

IF  .NFES.ES.O >  RETURN 
PRINT  * 

PRINT  4 

PRINT  * ,  'ENTER  THE  DESIRED  GROUND  TIME  OF  THE  '  .NAME '.NRES' 
READ  *  ,  GT -  NRES  > 

RETUFN 


'E.  'EM'1 


L-'  -  4 


FORMAT  : 

F  C  HMhT \ 
FORMAT  ■. 
FORMAT-:///, 


I  I  "  -  ' 


SUBROUTINE  APDINF 

READS  IN  AN  EXTERNAL  FI lE  THAT  CONTAINS 
INFORMA  i  i 'jN  ABOUT  THE  ^TRi-. .  E  j ,  ■_  AirL^nf  , 

CHARACTER  HD6-1 4)  *77  ,  SUBH-:  20  )  *1 4  ,  FNAME*6 
CHARACTER  NAME <  1 0 )  *6 ,  UNAME ( 1 1 )  *  1 4  ,  GNAME -I  3 )  *  1 4 
CHARACTER  MS( 4) *5 , KG( 5) *4 ,MDC  3) *5 

C  OMM  O'  i,  A  L-  j-  /NNa  1 1  Nh  L-.  i0  )  ,  ALA  I L  \  1 0  j  •  U  i  *  -  .  i  0 , 4  .•  ,  KhR  c  \  ,  u  ,  5  ,  c  j  ,  K  i  c* 
C  GT <  1 0 )  ,MHE (  1 0  >  ,NFP\  1 0  >  ,NPRK ( 1 0  .> 

COMMCN/APD/DI  ST  <  2)  ,TINTER(  i  0 )  .TINTRA-llO)  ,EAS(10,4)  ,CPI(4,-  , 

C  NHA( 2) , N  PA  l , R  C , G  L  S  ( ? , 3 ) 

C  OMM CN/ARM/NUN ITS, N UNT < ;C) ,NTGN< 1 1 ,5> ,NF?< 10) ,NAT< 1C) f NFT  <10 
C  NT  ACC  10)  ,  N  F  K  <  1 0 )  ,  NT  P  -1 11)  ,  NTV  ’Ill'1, 1  AS*.  1 0  )  ,  N  C I ( 10 )  ,  I Y  P  ,  N  H  G  < 

CQMMON/TAB/NP ,  LP  ,  I P  ,NCR  ,NE3  ,NPRI~  ,LL(  1 0 ,2:  ,L_-<  1 0 ,2)  ,  LFXC  10,4 
C  L?LK  10 ,3,4;  ,AI  J'»  1 50 ,300 )  , RHS -1 1 30  >  , LP’S  .3,5,4)  ,  LPSL (  4 )  , LPRC 
C  NT  (150),  LMT  ( 3 )  ,  N C  ( 1  3 )  ,  NW  GT  <  1 3  0  > ,  N DU  ( 1 5  0 ,  N I D 

Lc/MON,  C  Hr  <“i  c  ,  -1  -Hi  ,  'ci ii  ,/c  ,  “*•  c  ,r!D 

FIND  THE  FILE  NAME  WITH  THE  DATA 


PRINT  * ,  ■’  ENTER  THE  FILE  NAME  (6  CHAR  MAX)  WITH  THE  APOD  DATA 
READ  L  ,FNAME 

open-; :  i  ,f:le=fname' 

REWIND- 1 1 ; 


ASK  IF  THE  FI,_E  IS 


ez  wizwcj 


PRINT  * ,  '  DC  YOU  WANT  TO  SEE  THE  INPUT  FILE?  <  1=Y/Q=N)  ' 
READ  «,IUU 

I  -  T/U  .  cT  .  1  ,  :jR  .  I’/L  .  L  .  u  1  THEN 

PRINT  * ,  /NC~  A  L'ALID  REPLY,  PLEASE  ENTER  <1=Y/0=N>.' 


[GINNING  WITH  THE  FIRST  MAJOR  HEADING 


O  o  'J 


DO  12  1=1,2 

READ". 1 1  , 6 )  SUBH<  I )  ,  D I  ST  0 1 ) 

WRITE  .  13, 5)SUEK(  I )  , D 1 3~ ( I ) 

IF!  IL'U.EQ.l)  PRINT  6,SUBH<I>  ,  DISK  I) 

CONTINUE 

READ  IN  THE  INTER  AND  INTSA  TURN-TIMES 

READ':  1 1  ,4)  HDG(  2) 

WRITE ! 1 0 , 4'> KDGI 2) 

I  F  >;  I  v U  .  E  l;  .  1 )  r  R I  NT  4  ,  HDb(  2.1 
DC  14  I=i,NMAC 

READ",  1 !  ,3)SUBH<  1+2)  ,T  INTER  (I  >  ,TINTRA(  I )  , 

C  EA3 (1,1 >  , EAS (I , 2 ) , EAS (I ,3 > 

WRITE'.  13,S)SUBH(I+2)  ,T  INTER!  I  -  , TINT  RAC)  , 

C  EAS( 1,1), EaS( 1,2), EAS< I , 3) 

IF) IVU.EQ.l )  PRINT  8 , SUBH( 1+2) ,T INTER! I) ,TINTRA\ I ) , 

C  EaS( I , 1 ) , EAS< 1,2), EAS< 1,3) 

CONTINUE 

READ  IN  -rE  COMBAT  POWER  INDEXES  FOR  UNITS  CLOSING  AT  THE  FRONT 

READ! 1 1 ,4) HDG\ 3) 

WRITE! 1 3 ,4) HDG< 3  > 

IrCVU.EQ.l)  PRINT  4,HD6<3> 

J=NMAC+2 
DO  16  1  =  1  ,MP 

READ!  11  , 17) SUSH(  I  +  J)  ,C?IC> 

WRITE! 13,1 7) 3UBH< I ♦ J) , CPI ( I  1 
I-C'U.EO.l)  PRINT  1  7  ,  SUBH(  I  +  J)  ,  CP  I  ( I ) 


NUMBER  OF  MHE  PR-POSITIONED 

READ" 11 ,4) HDG' 4; 

WRITE! 13,4)HDG(4) 

I  r  •  I  A’  U  .  z  J  ,  1 )  PRIM  i  4  ,  H  D  G  4 

J=NNAC+NP+2 

DO  18  1=1,2 

READ  'll  ,19) SUSHI  I + J ) , NHA < I ) 

WF:ITE1  13,19-  SUBH(  I  +  J)  ,NHA(  I ) 

IF!  I'/'j  .  EO  .  1  -•  PRINT  1?,SU3H(  I+J)  ,NHA(  I ) 


THE  NUMBER  OF  PALLETS  AN  ALCE  UNIT  CAN  DOWNLOAD 

PEaL"  11  ,19)  S'u'BH'.  1  ?:•  ,MPAL 
i  ,  1 2 , 1  R )  SUBH 1 1  y  .  ,NPAl 
IF'  IWU.EQ.  5 )  PRINT  l’.SUBHC?)  ,NFAl 


UAPABILIT <  PEP  DAY  DE i ERMINED 


IF',  IVU.EQ.l)  THEN 

PRINT  1 7  ,  EUBH< 20 , RC 
PRINT  * 

PRINT  *, 'ENTER  ANY  CHARACTER  TO  CONTINUE.' 
READ  2 , FNAME 
END  IF 

**  FOR  NAT  STATEMENTS 

2  FORMATS  Ac :» 

4  F  G  RMAT A  7  7  > 

6  F  0  F'MmT  A 1 4  ,  F  6  .  0 ) 

5  FORMAT (A14 ,5F6. 1 ) 

9  F  0  RMAT ( /////////////. '  ///////// ) 

1  7  FORMAT v  A 1 4 , F6 . 1 ) 

19  FORMAT  <A1 4 , IS) 


RETURN 


S  L'  b R OUT  I N E  A P  D I N S  < NM A C , N F  j 

PROMPTS  INFORMATION  FROM  THE  USER  CONCERNING  THE  APOD 
AND  MI  sCEll.,— NEOUS  CAiA 

CHARACTER  HDG<4) *77,SUBH< 20 )  *1 4  , FNAME*o 
CHARACTE R  NAM E'l  1  0 )  *6  ,  UNAM E  ( 1 1  :>*  1 4  ,  GMAM E  \  3  >  *  1 4 
C  HA  PA  CT E  R  M S  < 4 ) *5  ,  KG<5>*4 ,MD< 3) *5 

COMMON/APD/DI STC  2)  ,TINTERU0)  ,TINTRA<10)  ,EAS\10,4>  ,CFMJ 
N HA \  2)  , N PA L  ,  RC ,  3L S \ ? ,  3 ) 

C OMM ON/ C HR/NAME  ,  IJNAME ,  5MAME  ,MS  ,  KG  ,MD 

-PINT  OUT  THE  INFORMATION  NEEDED  FOR  THIS  FILE 


PRINT  THE  FOLLOWING  DATA  IS  NEEDED  FOR  THIS  FILE: 

PRINT  - 

PRINT  *, 'DISTANCES  IN  KM  FROM' 

PRINT  *,'  US  TO  APOD  —  < 

P  R I  NT  * , '  APOD  TO  FR  ONT  -  ■( 

PRINT  C3MFLETIGN  TIME  < ROUND  TRIP)  FOR  EACH  AC  ON:' 
PRINT  INTERTHEATER  MISSIONS  ---  < 

PRINT-*,'  INTRATHEATER  MISSIONS  —  < 

PRINT  * , ' COM EAT  VALUES  FOR  CLOSING  UNITS  FOR  EACH  PERIOD 
PRINT  —  < 

PRINT  * ,  'THE  AMOUNT  OF  MHE  PF.EFOSITICNEO  AT: 

print  apod  in  pallet  equivalents  <pe<  —  < 

PRINT  FRONT  IN  PE  -  < 

PRINT  *,'ALCE  CAPaB I L I TY/DAY  IN  PE  -  < 

PRINT  *,  RIGGER  CaPaE  I  L  IT  i  TO  PREPARE  AIRDROP  -  < 


1  00  ,000 
100,000 


100.0' 

100,000 
100,000 
100,000 
1  0  0 , 0  0  0 


i r ■  *  j r, z z . c  .  1  ■  C R  •  N R 1 o . LT . 0 1  THEN 

PRINT  4,  'NOT  A  VALID  RSrL  ( ,  PLEA  EE  ENTER  ( l  =  r/0=N  <  ,  ' 
G-  i  -  i  -- 
END  I  F 

I  F  ■.  N  R  E  3  .  E  3 . 0  1  £T  0  F 

ViK  IF  DESIRED  TO  SAVE  DaTa  IN  A  FILE 


PRINT  *  ,  ‘  LO  YOU  :/jAf  iT  THE  DA  A  iAVED  I *  AN  E  . :  cH  <AU  F  I  L  c  ^ 1  I  - 
READ  *,NSAVE 

I c IN SAVE . GT . 1 .OR.NEAVE.LT.O -  THEN 

PRINT  * ,  'NOT  A  VALID  REPLY,  PLEASE  ENTER  'll  0=rN  .  ' 

GG  TO  12 
END  IF 

I F ‘IN SAVE  .  E9 . 1  >  THEN 

PRINT  * ,  ■'  ENTER  THE  NAME  OF  THE  FI_E  YOU  WANT  THE  DA  "A  Sr 
C  C  H A  RA  CT £  R S  MAX ) 

READ  2 , FNAME 

OPEN  ■  1 : , FI LE= FNAME) 

rewind-:  : : 

END  IF 

TART  THE  INPUT  PROCESS 
1=0 

PRINT  5 

PRINT  *,'I  AM  READY  TO  ACCEPT  YOUR  INPUTS,  AND  WILL  PROMPT 


PRINT  —  ENTERING  THE  APOD  DATA 

PRINT  *,•' - 

PRINT  * 

PRINT  *,-m~ER  THE  D I  STANCE  (KM ,  INTEGER)  FROM  US  TO  THE  APO 
READ  *,DIST(1) 

PRIM"  * 

PRINT  * ,  ■'  ENTER  THE  DISTANCE  <  INTEGER.1  FROM  APOD  TO  FRONT.- 


PRINT  * ,  •' ENTER  THE  TIME  (DAYS)  BETWEEN  MISSIONS  (REAL)  FOR: 
DC  15  I=1,NMaC 

PRINT  INTERTHEATER  FOR  THE  / ,NAME< I ) 

READ  *  ,TI NT E R ( I  ) 

PRIM i  V  INTRaTHEATER  FOR  THE  ' ,NAME( I ) 

READ  4  ,TINTRA‘  I > 

CONTINUE 

INPUT  THE  EASE  WITH  WHICH  DIFFERENT  TYPES  OF 
Cr-Hj-j  Hr i D  A ;  PoRaFT  CaM  BE  UNLOADED 


PRINT 

cr 

PRINT 

* 

THE 

DA' 

PRINT 

* 

P  R I  NT 

* 

PRINT 

* 

PRINT 

* 

PRINT 

♦ 

PRINT 

* 

READ 

*, 

PRINT 

PRINT 

* 

READ 

PRINT 

♦ 

PRINT 

+ 

D  C  1  5 

I- 

r  K  * !  i  *  ,  i  i  U  !  H  ■  i~‘.  l.  *  L-1 

GO  TO  21 
END  IF 

I  F  <  r  i  Sm  v1  E.EQ.O.  AN  D  .  I V  U  .  E  Q .  0  >  R  ET  U  RN 


C«*  SET  UP  THE  HEADINGS  FOR  THE  VIEW  AND/OR  THE  FILE 


HDG'. ;  1 

.  DISTANCES' 

HDG'.:  21'  =  '2 

.  AIRCRAFT  INTER  I NT 

HDG'  2  =  3 

.  COMEAT  VALUES  OF  UNITS 

HDG  4  ■  =  4 

.  MISCELLANEOUS  DATA' 

E~  UP  THE 

b  U  B  H  E  A  D I N G  3  UN L  E  S S  N S AV 

SUBH(  1  >=■' 

FROM  US:' 

SUBH’l  2)  =  / 

FROM  CORF’S;’ 

SUEH>!2>=' 

PERIOD  1' 

S  U  E  H  ( 4  )  =  ■' 

PERIOD  2 

SUBH( 5)= ' 

PERIOD  3-' 

SUEH'.;  6)  =  ' 

PERIOD  4 ' 

SUBH'l  17)  = 

MHE  AT  APOD' 

SUEH( 13. )  = 

MHE  AT  FRNT ' 

SLEH< 1 ?)= 

ALCE  CAP' 

SUBH'l  20  )  = 

RIGGER  CAR' 

RITE  THE 

FILE  TO  OUTPUT 

tv  RITE 

< 13,4 ) HDG ( 1 ) 

WRITE' 

1  3 ,6)  SUBH’l  1)  jDIST-i:  • 

WRITE1! 

13,6) SUBH’l 2)  , D I ST 2 .> 

WR ITE  ( 

1  3 , 4 )  H  D  G  ( 2 ) 

CO  44 

1=1 ,NMAC 

WEI 

TE\  13, 8) NAME 1  I >  ,7 INTER \  I 

PHC  f  :  1  ,  ?  O  N  ■'  T 

.  1  1  ..  ,.n.  .  i  ,...  I--:.,  i  , 

C  C'NT  I N  U  E 

WR  ITE'. 

13,4 -HDC .2' 

DO  4c 

1  =  1 , N  F 

CON' IN 

1  •  C 

Ui  RITE  \ 

1  2 , 4  ;  HDG  ■’  4  .1 

DC  43 

1  =  1  ,2 

WRI 

TEC  12,1°  SUEH'.  1*16)  ,NHA< 

CON" IN 

UE 

tvr  .  Z.  ' 

10,1  5  :  ••  ,NFftL 

WRITE- 

1 3 ,  ~ 'SUEH'.  20  •  , RC 

RI'E  THE 

FILE  IF  N3a'.'E=1 

i  r  \  i  c  mi  ~  . 

EG  .  1  ■  THEN 

«/j  R  I  £ 

■1  11,4.'  HDG'  1  •• 

WR  I tE  11,6'  iUBH 1  ■'  ,  D I  S'  1  1  1 
WRITE-;  1 1  ,6>  3UEH-:  2  ■>  .DIET-  2 
UR  ITE'.  1 1  ,  d.:  HDG  2, 

DO  24  1=;,NMAC 

W R I  1  E •  i  1  , 3 .•  NAM E',  I .TINTED  I  •  .TINT  Rh >  1 


SUE  ROUT  I  ME  A  Rill  NR 


C*> 
C  +  « 

c 


READS  IN  AN  EXTERNAL  FILE  THAT  CONTAINS 
INFORMATION  about  the  army  units 

CHARACTER  NAN  E  <  10  >  *6  ,  KDG*77 ,  FNAME*  6  ,  UNAM  E<11)*14,  GNAM  E\3)*14 
CHARACTER  MS< 4)  *5  ,KG<5>*4 , M D •  3)  -*5 

COMMON/ ARM/NUN ITS  ,NUNT -1 1 0 >  ,N70N<  11,5)  ,NFP<  1 0 )  ,NAT <  1 0 )  ,NF7 ( 10', 
C  NTAC'1 1 0 )  ,NPK(  1 0 )  ,N7P(  1 1  >  ,NTV(  11),  IAB(  10 )  ,NCi  ( 10  -  ,  IYP  ,NHCx  2 
COMMON/  C HR/NAME  ,  UNANE  ,  GNAME  ,M3 ,  KG  ,MD 

FIND  THE  FILE  NAME  WITH  THE  DATA 


:R  THE  FILE  NAME  (6  CHAR  MAX.)  WITH  THE  ARMY  UNI  3 


FIND 

THE 

?  y.  I  i  n 

—  C\ 

PR  IN 

iT  * 

READ 

1  £  1 

OPEN 

K  12 

REWI 

ND( 

'HE  FIlE  IS  TO  BE  VIEWED 


PRIM '  D C  YOU  WAN"  TO  SEE  THc  INPUT  F .  /  '•  1—  <'/Q=Nj 

READ  *,IVU 

:=••••  I’,  U.GT.l  .  OR  .  2  VU .  LT  .  0  >  THEN 

PRINT  4, -'NOT  A  VALID  REPLY ,  PLEASE  ENTER  <  l  =  Y/0-S)  .  •' 


GO  TO  21 


c: u 


READ  IN  THE  DATA  FILE  AND  PRINT  IF  IVU=1 
T ~E  FIRST  IYP  UNITS  ARE  DEPLOYED  TO  THE  FRliN 

uhilE  t-e  last  iyf+i  units  are  at  the  apod 


RE-D • 12,*  NUN ITS , IYP ,NHG< 1 ) ,NHQ<2) 

WR  I ~E ■  1  S  ,  -*)NUNIT5  ,  IYP  ,NHG< ! )  ,NHCK2> 

READ  1 2 , A  HDG 
WRITE1.  1  3  ,  A  :.  hDG 
IF;  I‘/(j .  E'i .  1 )  7H E.‘  t 
PRINT  8 

PRINT  *  , NUN ITS , IYP ,NKG< 1 )  ,NHG(2) 

PR Vr  4, HDG 
END  I17 

DC  52  1=  1  ,N UNITS 

READ-.  12,0'  UNAM  Ed.),  N  UNT  Cl)  ,  NT  ON  <  I  ,  1 ) ,  NT  ON  <1  ,2)  ,  .NT  ON  (I  ,3)  , 

I  N~ ON-  I  ,a .  ,NTQN<  I  ,5  /  ,NFP<  I )  ,NmT<I)  ,NFT <  I ,NTAC<  I  >  ,NPK'.  I  ’>  , 

I  NTP  I  '  ,NTV(  1 .'  ,  I AB  >.  I  1  ,NCI  <  I ) 

'»=  I*E-  1  3,0  :  UiNAME 1  I  :>  ,NUN7<  I )  ,N70N<  I  ,1 )  ,NTON(  1,2'  ,  NT  ON -1 1,3.', 

1  N“DN-  I , a  ,NTCN< 1,5  '  ,NFP  I  •  ,MAT < I )  ,NFT < I ) ,NTAC 1 1 > ,NPK\ I > , 


NT' '  I  :  ,  I AE '.  I  '  ,NC  I  1  I 


N  ■  5 '  I 
I'/L  .  EO.O  )  GO  TO  53 

'  ~  o  ,  UNAME-:  I  '  ,NUr.C'  I  '  ,N~CN'.  1,1  »  ,  NT  ON 1  1,2'  ,  NT  ON  ■  1,3', 

I I  .  1  ,  A  ,  1 1  ,  ■_!.  J 1  *  ,  “  , .  1 1-  1  i  ’  , ,  i  A  i  ,  N  F  .  , .  ■«  1  H  L  '  1  1  <  i  h  k 

N~P  I  '  ,N~  >•  I  ,  I~E  I  ,NCI  I 


LLi  (  !  .NUn 
CLOSE1 12) 

j=nun:tst; 

UNAME!  J)  =  -  ALCE -FRONT 
DC  63  1=1,3 

NT  ON  (.  J  ,  I )  =NT  ON  ( N  UN  1 T  3 , 1 .) 

CONTINUE 

NT  P  <  J )  =NT  P  ( N  UN  ITS) 

T  i  i '/  .  J =N  1  v i  j  bi  , 1  ij' 

IF! IUU.EQ. 1 )  THEN 
PRINT  * 

PRINT  * ,  ■'  INPUT  ANY  CHARACTek  TO  CONTINUE 

c:'r(  ~  c.vamc 


F  0  RMAT  ST  AT  EM ENT  3 

FORMAT iAui 
FORMAT',  A  7  7.) 

F  U  RMAT A 1  R  ,  I  2  ,  A 1 6 , 1 3 , 5 1  3 , 1 4 , 3 1 3 

FORMAT':///////  ///  ■  /  7////////) 


SUBROUTINE  ARM  I NS 

H SATES  THE  ARMY  UNIT  FILE  FOR  THE  ANALYSIS 

C HARa.C'ER  HDG-*77  , FNAMEac  , FIRST'*  14 

CHARA ITER  NAME 1  10/  *c- ,  LNAME 11  '» •*  1 4 , 31  iAME\  3  )*14 

CHARACTER  MS!  4>*5  ,K3<3>  *4  ,MD!  3)  -*5 

I  3mm  CN/A  RM/N  UN  I T  3  ,  N  UNT  ■!  1 C )  ,  NT  ON  (11,5)  ,NF?<10 ) ,  NAT  <  10)  ,NFT!  10) , 
NT  AC  ■;  I  Q >  ,NFK  .10  1  ,NTP*’i  1 )  ,NTV<  1 1 )  ,IAB(  10>  ,NCI<10)  ,  IY?,NHQ<2> 

tcn/chr.  'Name  ,  ur  :ame  ,  gnhME  ,ms  ,  kg  ,md 


PRINT 

2  Q  ’  V;T 

4 

’  !• 

THE  PC 

LLOUI 

FRINT 

t 

* 

PRINT 

4 

'mr  name 

i  L.-1 

F  F  1  r  iT 

4 

NUMBER  OF 

UNITS 

prut 

4 

'AMOUNT  OF 

OUTS  I 

4 

ONERS 

PRINT 

4 

B ! :  L  K 

RR/lT 

4 

'NUMBER  OF 

PEP  S  G 

ZZ  *  1  j”jT 

♦ 

'Sup pl <  ccr 

SUM  FT 

P  5  i  NT 

4 

FIREPOWER 

100  ' 

1000 co 

1 0  0  2  0  C 
100000 


L-  -  ,  * 


I  =  *  >  < 

L'NrtME  ’  I  ,'  =  F 
PRINT  a 

PRINT  * ,  ■"  INPUT  THE  NUMBER  OF  UNITS  (INTEGER)  ABLE  TO  DEPLOY .  ' 
RE.-iD  +  ,NUNT  ■;  I ) 

P  R I  NT  * 

PRINT  a , ' INPUT  THE  TONNAGE  (INTEGER-  PGR  THE  FOLLOWING  SIZE:" 

PR  IN-  ■*  ,  '  OUT  :  ' 

REAL1  a  ,,V2N 1  1,1) 

PRINT  *, '  GY E- : 

read  *,n-:n'.i  ,2' 

PRINT  * t '  BULK:" 

READ  *,N?3N( I ,3) 

PRINT  * 

PRINT  * ,  '  INPUT  THE  NUMBER  OF  PERSONNEL  (INTEGER)  IN  THE  •'  ,  UNAME 
READ  *  |  NT  ON  \  I  ,  “ 

P  R I  NT  * 

PRINT  N  F  UT  THE  SUPPL  (  C  ON  S  UM  PT I  ON  RAT  E/  DAY  <  I  NT  EGER )  :  ■' 

READ  *, NT ON (1, 5) 

PRINT  * 


PRINT  a  ,  'IMP U 

T  THE  POWER 

-PIN-  A, 

F I  RE POWER  : 

READ  a ,NFP< I ) 

PRINT  a,' 

AN . i “ i ANk • 

READ  a  ,NaT  I ) 

FRir-r  *,' 

FRONT  LINE 

re  AD 
PRINT  * 

■".I  NT  *  ,  •'  INPUT  THE  #  OF  FIGHTER  AC  (INTEGER'  IN  THE  ,  INAME  C I  j 
RE- 1  ♦  tN- -2  I 

IF'.NTaCC)  .NE.O)  THE:  i 

PR  IN”  a, 'INPUT  THE  *  OF  F 1 6HTERS  THAT  CAN  PARK  A*  THE  APOD: 
READ  *■  ,NPK  ■.  I  ■ 

ETi  E1  I  F 
£  E  '  NT 

“  t  -N.  *  i  :  NF  T  tE  i  ‘.ri*”:'1 ;  Ln.  Dm;’  .  i-i .  S  -•  z  R .  THE  UN  I T  CAN  TRANS  F’Ui 


THE  Ur  i  I T  CAN  T  RAN  S  P  U  P 


m  rn 


n  Ml 


m  rn  rn 


IF  DC;  .c  THEN  ASK  IF  THE  Dat 


ri  i;  i  J  DC 


">  a*  SAVED  IN  A  FILE 


I F 'INSUB. E 3. O'  THEM 
PRINT  9 

PRINT  * ,  '  SAVE  THE  NEW  I  iN  FORMAT  I  CM  IN  A  FILE'  < 1=Y/0=N> ' 
3c  READ  * , I SAW 

IF-.  I  SAW  .  LT  .  0  .  OR  .  I  SAW  .  ST  .  1  i  THEN 

PRINT  */NCT  A  VALID  REPLY!  ENTER  (1=Y/0=N>  .  ' 

GO  TO  36 
E  ID  I  r 

I  r  \  I  SA.v  ,  c!-i .  1  CAi _ L ‘.3 

GO  TO  60 
END  IF 

CALL  ARMINC’IMSUE) 

NRcc=  1 
GO  TO  30 
C 

C*4  FORMAT  STATEMENTS 


FORMAT *;a?7) 
FORMAT':  A!  4  ,  ~  6 . 0  ■ 
FORMAT  ..A!  4 ,5F6 . ! 
FORMAT  (A  I  4,73.1"' 
FORMAT',  A I A ,  16.) 

F  _  EMA  i 


SUBROUTINE  PENT!  I  FILE > 

PRINTS  OUT  THE  FILE  DESIRED  BY  THE  USER 

C  HARaCTER  NAME  •,  1 0  >  4  6  ,  UNAME ')  1 1 )  4  1 4  ,  GNAME  3 )  *  1 4 , 

C  HDG'1 41  4_r  ,  SUBH'l  20  )  ♦l  -  .TITLE*??  ,  BLANK *1 
CHARACTER  MS<  Ji;  -*5  ,  KG'i  5:  44  ,MD< 3> 45 

•:o:---’Cn  Nr-v:,NA:,:o  :o .  ,U7E\IQ,4>  ,karg<  10 .5,2) , k~s 1 1 o , . 

C  3~ ■;  1 0  '  ,MHE\  1 0 ,NFP(  10)  .NFEKCIO  ) 

COMMON/APD/DI  ST  I  2)  ,TINTER(  1 0 !'  ,TINTRA-1 10)  ,EaS<  10 ,4)  ,  CPI  (4) , 
l-  N HA 2 .)  ) N PAL  ,  El  ,  bL 6 J,  9 , 6 1 


COMMON 

/ARM/ NUN  ITS 

M  Mk  |T  .  2  !*) 

./IAi  1 1  i  u  , 

v'i  i  ori 1 

i  i  tr 

-  ■»  <  -J 

|NFP< 

0 > ,NAT ( 

o 

~z. 

T1 
•  \ 

o 

I  ",A 

I  1  0  ;  ,NFK'.  1 

0 .'  .NT?':  1 1 ) 

,NTW" 

i  4  1  , 

hd\  !  0 

, NCI < 10 

>  ,  IYP  ,NHQ'l  2) 

.- .  - 

~-E  N?,LD. 

I  r  ,  N  L  r.  ,  N  C 

,NPR 

t.ll 

10,2.' 

LU< 10,2 

'  ,LP;<1!0,4,5,4)  , 

j 

'  :  o  ,  S  ,4  .'  ,AI 

J\ 150,300) 

,RHS 

150) 

,L?S<3 

=  4 )  is 

SL  4)  ,  LPR(  1 0  >  ,  I 

C  rr  15-;  , uMT •;  2  >  ,NC<  10.'  .MWGTHSO)  ,NDV'1 1  SO )  ,NID 

c  i'  'M  , .  :  - f ..  we,  or  .am e  .  c-r  am e  , m s ,  k g  , m d 
SO  TO  T:-E  cc==e:~  tore  cf  fi^e 

I  .  =  A.F^F.-Fi  [h  m  20=  APOD  Da  i  A  30=  ARMY  DATA 


10,20.20,  1=1, 


D-44 


r  ,  i  -i  i  *  ,  r\c."L  .'  0  j  r  NJ  ML  r  -  l  HANlmc  -■ 

READ  ♦  .MS’UB 

I  F •. ribUc  .  L"* .  0  .  OR . MbUB . GT  .  7  >  THEN 

PRINT  * ,  'NOT  A  VAi_ID  REPLY!  ENTER  (0...7 
GO  TO  24 


IF  DONE  THEN  ARK  IP  THE  DATA  IS  TO  EE  SAVED  IN  A  FILE 

IF'.MSuE.EQ.O  '  THEN 
p  R I  NT  ? 

F’.Ii  iT  *. , '  SAVE  THE  NEW  INFORMATION  IN  A  FILE"'  <  1=Y/0=NI> 
READ  ■*  ,  I  SAV 

I  F  •;  I  SAV .  LT  .  0  .  OR  .  I  SAV  .  GT  .  1 )  THEN 

PRINT  ■*,'NC7  A  VALID  REPLY;  ENTER  ( 1='/ 0==M  4  . ' 

GO  TO  2c 
END  IF 

IF'.  ISaV.EQ.I  •  CALL  UR  I T  ( 2 ) 

G L  TO  6 L 
END  IF 

cal_  af din;  msue 

NR E  c= 1 


-  InF.-'-Ni-  . -N  I  c  1,'iTc.^NAL  ASK  I r  A  V.cV  OF  THE  DATA  IS  DEcIREI 

1=  NRES.E3.C  ;•  CA.L_  ARM  INF 
I FsNF.ES . ED . 1  -  THEN 
PRINT  P 

PRINT  * ,  '  DO  YOU  WANT  TO  VIEW  THE  ARMY  UNIT  DATA"'  ( 1=Y/Q=N; 
REaD  * , IVU 

I  F<  IVU  . LT  . 0  .  OR .  IVj  .57.1,'  THEN 

PRINT  * ,  'NOT  A  vALID  ANSWER!  ENTER  <  1  =  Y/G=N.:’  . ' 

GO  TC  32 
END  IF 

IF!  IV'j.EO.n  CALL  PENT (3) 


suemenl  =:r  army  unit  data  change 


PRINT  *, '  ARMY  CHANGE  SUBMENU' 

PRINT  - 

I  +  (  1.  DELC  I  C  ri  UN  it.’ 

PRiNT  *.  2.  CHANGE  THE  NUMBER  OF  UNITS  AVAI1 

PR  IN”  * ,  • .  C.tp-NGE  THE  FIREPOWER  FOR  A  UNIT 

PRINT  ■*,’  4.  CHANGE  THE  ANTI-TANK  FOWER  FOR  » 

PF  -N :  5.  CHANGE  THE  FRONT  LINE  TRACE  F-_F 

PRINT  « 

PRINT  ♦.•'REPLY  0  IF  NO  MORE  CHANGES  DESIRED' 

READ  •*  , M S U B 

I  F  'Y’SUE  .  LT  .  0  .  OR  .MSUB.GT.5)  THEN 

f=:n”  4,v.i”  a  valid  reply*  ever 


D-43 


IFYMSUB.EG.O  1  -  -  E: ; 

PRINT  '? 

PE. Tii  ,  oAVE  THE  NE,.  INF-jFMi-ii  I  ■.■Pi  IN  A  FILE: 
READ  *  ,  I  5AV 

IF'I  I SaV  .  .  0 . 2R  .  I  SA V .  GT  .  I  •  THEN 


PRINT  * ,  N-iCT 


'!  ENTER  <  4-Y/0=N> . ' 


END  IF 
IF1. 1  ’Ei—‘  . E . 


'.A i _ ,'jf, .  , 


NRE  B= i 
GC  TO  10 


THE  AIRCRAFT  DaTm  MUST  BE  EN~ERzD  EE-.RI 
i  p  INFORMA  i  .01*  I  j  I  NT  z  k."  ir  L  hc:  I-  n  .Ic 


IS  DEE  I 


I  F’.NREi  . EQ • 0  >  T HEN 

PRINT  * ,  •'  HAS  THE  A.ElRaF.  Da  -i  zEzN  EN  z~zC  i'E  ‘  1  —  f  j=i 

READ  *,INaC 

I  -  ■.  INAC  . L" . 0  .  OR  .  INaC  .  GT  .  1  >  THEN 

PRINT  * ,  NuT  A  VALID  PE:_.''  E.  TER  •.  1=;  0  =  ' . 

GC  TO  21 
END  IF 

IF'I  INAC. EQ. 0.1  THEN 
CAlL  ACINF 

call  apdinf 

END  I " 

El .  D  I  = 

I  F N REE .  ES  .  1  T H EN 
PR  NT  9 

r  p  . NT  *  ,  l'U  Y  U  NAN'  iO  '■■/';  zN  THz  i— >  F  D  Da  A  •'  \i=/-  L,=N.>  . 
READ  *,ivu 

IF  IVU . wT . 3 . OR . IV U . GT . 1 >  THEN 

PRINT  * , 'NOT  A  VALID  ANbLiER  ENTER  \  1  =  Y  0=N <  .  ' 

GC  TO  22 
END  1  = 


l  .  Z  ‘j  .  1  1  UAL  L  H  rtN  l  i.  L  ) 


END  IF 


n;J  p  OR  a  POD  DATA  CHaMGc 


PC'  T  b  IT  y 


PRINT  * , 


AFuD  CHANGE  SUBMENU-' 


.  CHANGE  THE  DISTANCE  FROM  THE  US  TO  THE  APOD. 


PRINT  *,  •  2.  CHANGE  THE  DISTANCE  FROM  THE  APOD  TO  THE  FROM 

CHANGE  THE  COMEAT  VALUES  FOR  THE  PERIODS.-' 
CHANGE  TnE  MHE  PREPOSITIONED  AT  THE  APOD.' 
CHANGE  THE  MHE  PREPOSITIONED  AT  THE  FRONT.-' 
CHANGE  THE  CAPACITY  OF  THE  ALCE. 
lHamGc.  i  HE  CmP^C  I  I Y  Cr  THE  RIGGERS.'' 


IF-.MENU.EQ.O  ■  Ht  . 

CaLL  pcstc 
RETURN 
END  IF 
PRINT  9 

PRINT  GUT  THE  CRT  IONS  AND  INSTRUCTIONS 
PRINT  NOTE : 

PRINT  * ,  ' HAS  THE  DaTh  TO  5E  CHANGED  BEEN  READ  OR  INPUT  INTO  THE  PR 
1 OGFAM 

PRINT  *. , BY  A  FILE  OR  INTERACTIVE  MEANS?  •1=Y/Q=N>‘ 

READ  * ,NRE2 

I F (NRES . Lx . 0 . Cc .NPE5.ST . !  >  THEN 

FEINT  •*  ,  NLT  a  VALID  REPLY  !  ENTER  \  1=Y/Q=N  >  •  ’ 

6C  TO  59 
END  IF 
P  S I  NT  9 

GO  TO  THE  PROPER  SUBMENU 

GO  TO  1 1  0 , 2'J  ,30  >  MENU 

IF  INFORMA- 1  ON  IS  INTERNAL  ASK  IF  A  VIEW  OF  THE  DATrt  IS  DESIRED 

IF  INRES.EO.Oy  CALL  AC INF 
PRIMT  9 

PE  IN-  * , ''  DC  YOU  WANT  TO  VIEW  THE  AIRCRAFT  DATA?  C=Y/0=N).' 

READ  *,IVU 

I F  ■  IVU ,  L-  .  0  .  UF. .  I  VO .  6T .  1 THEN 

PRIM.  * , 'MOT  A  -al!  D  ANSWER:  E  ■  E--  *.  I  =  t/Q=N  ;  . ' 

GO  TO  12 
END  IF 

I  FI IVU.Ej.l  ■  CALL  PRNTI 1  ■ 


■  Lci'.tAU  -  „r 


.A  i  A  CHANGe 


P  P I  NT 

♦ 

PRINT 
PR  IriT 

4 

H 

I  R C  R A  F  T  C  HAM  G  E  S  U  EM EN  U ' 

1  . 

DELETE 

AN  A I RCRAF F .  ' 

PRINT 

PRINT 

♦ 

z . 

CHANGE 

THE  NUMBER  OF  AIRCRAFT 

AVA I  LAB 

PRINT 

4 

w  . 

CHANGE 

THE  AVA I L A E I L I T /  OF  AN 

A I  RCRAF 

PRINT 

4 

4. 

CHANC-E 

THE  GROUND  TIME  FOR  AN 

AIRCRAF 

PRINT 

4 ■ 

PRINT 

4 

'REPLY  0 

I  r  NU 

10 RE  CHANGES  DESIRED 

P  R  T  iT  * 

READ  *,MSUB 

I  F  .i  ISUB  .  LT  .  0  .  OR  .MSUE  .  GT  .  4 >  THEN 


S-CHG 

SUBROUTINE  CHANGE 

THIS  AlLC'US  THE  USER  TO  MAKE  CERTAIN  MINOR  CHANGES  TC  THE  AIRCRAFT, 
APOD,  AND  ARMY  FILES,  ALONG  WITH  CHANGES  IN  THE  GOALS. 

CHARACTER  NAME  1 1 0  >  *6 ,  UNAME  <11)*14,  GNAME  1 3 )  *  1  4  ,  FNAME«6 
CHARACTER  MS < 4 ) *5,KG<5 > <4  ,MD ■, 3  :  *5 

C OMM CN/ A U F/NMA C , NaC <  1 0 )  ,  AVA I L  \  1 U .)  ,  U  i  E  •  10,4 ;  ,  KARS *110,5,2)  ,  KT B i  0  )  , 

C  GT 1 0  >  ,MHE  110)  ,NFP(  1 0 )  ,NPRK ( 1 0  > 

C  OMM  ON/A  F  0/  DIST<2),TI  NT  E  R  *  10)  ,  T I  NT  R  A  <  1  0  .■  ,  E  A  S  ■  1 C  ,  4 )  ,  CP  I  \  4 )  , 

C  NHAC2) ,NPAL ,RC , GLS(  9 ,3) 

CCMMGN/ARM/N UNITS  ,NUNT(  1  0 ;  ,NTCN(  1 1  ,5..  ,NF?\ 10  *  ,NAT ■  10  ■  ,NFT(  10)  , 

C  NTACCO)  ,NPK(  10)  ,NTP(  1 1 )  ,N7V<  11),  TAB*  10)  .NCMIO)  ,  IYP,NHQ<2) 
CCMMCN/TAB/NP  ,  LP  ,  I P  ,NCR  ,NEQ  ,NPRIT  ,  LL 1 10 ,2)  ,  L'J*:  10 ,2)  ,LP;M  10 ,4,5,4)  , 
C  L P U >:  10,3,4)  ,AI  J<  1 50 , 300 )  ,  RHS<  150),  LPS<  3 , 5 , 4  ■  ,  L P 3 L <  4 ,  LPR-.  1 0  ■  , 

C  NT •;  1  5 0  •'  , LMT >13), N C<  iO)  , NW GT ( 1 5 0  >  , N DO <  150;, N I D 

C GMM CM/ C HR/NAME ,  UNAME  ,  GNAME  , MS  ,  KG  ,MD 

PRC  IDE  THE  MENU  FOR  THE  CHANGES 


SENSITIVITY  MENU' 

i .  aircarft  Data  : 

-  DE^E”  an  aircraft  .  ' 

-  CHANGE  NUMBER,  AVAILABILITY,  GROUND  TIME.-' 

_  .  a  POD  DaTh  :  •' 

-  C uamC'E  DISTANCES,  TURNTIMES,  COMBAT  VALUES' 
i  .  A"*M  :  Da  i  A  :  ' 

-  DE.E'E  A  UNIT.' 

-  CHANGE  NUMBER  AVAILABLE . ' 

-  CHANGE  FIREPOWER,  ANTI-TANK,  FRONT  LINE  •' 

TR-CE  VALUES.' 

-  i r  'i'  ms *-£  changes  desired-' 


n  o 


-  •jr*:',A  i 


FORMAT  ■://///■'/ 

END 


■  ,a:4  ,  •  - 

' , A 1 4 ,  -  ' ,F2. 


f;  ■*  *  +  ■*  ■+  if  *  *  *  * 


ff-f  *  +  +  +  ^  + 


SUBROUTINE  FOSTC 

•*  THIS  ASKS  THE  USER  AFTER  HE  SHE  HAS  MADE  CHANGES  IF  ALL  THE  DA"A 
•*  NECESSARY  TO  CONTINUE  HAS  BEEN  ENTERED 

C HA Ra CT E R  NaM E’>  1 0 )  * 6  ,  UNAM Evil  >*14,  GNaM E  \  3  1  *  1  4  ,  FNAM E*6 
CHARACTER  MS •  4  .>  *5 ,  KG <  5>*4  ,MD (  3 ;  *5 

C OMM ON/ A C F/NMA C , NA C U  0 ) , AVA I L < 1 0  >  ,  UTE (1 0 , 4 )  ,  KARG< 10,5,2)  ,  KTS ( 1 0 
C  GT  (1  0 , M H E  ■!  10)  ,NFP <  1 0  >  ,NPRK<  1 0  > 

CGMMCN/APD/D I  ST  •>  2  .>  ,T1NTER<10> ,  TINTEAi  1 0 )  ,EAS(  10 ,4)  f  CP  I  <4;  , 

C  NHAC2)  ,NPAL , RC , GLS( 9 , 3) 

COMMON/ARM/NUN i To  ,NUNT<  1 0  >  ,NTON<  1 1  ,5)  ,NFP<  10)  ,NAT(  10)  ,NFT •!  1 0  >  , 

C  NTACC10)  ,NPK<10)  ,N7P<  1 1 )  ,NTV( !  1  > , IAB<  10)  ,NCM10.< ,  IYP,NHQ(2) 

C  OMM  ON/T  A  B/N  P, LP, IP, NCR  ,NEQ,NPRIT,LL '110,2)  ,LU<  1 0 ,2>  ,LPX<  1 0 ,4 ,5 , 
C  LPU( 10,3,4) , A I J (  1  50, 300  ) , RHS( 1 50 ) , LPS< 3 , 5 , 4) , LPSL< 4) , LPR< 1 0 ) 
C  NT <150 )  ,  LMT  <  3 )  . N C  <  i  0 )  , NW GT  <  I  5 0 )  , N DV  <  150.-  , N I  D 

C  OMM ON/ C H  R, '  NAM E , UNAME , GNAME ,MS . KG ,MD 

FIND  OUT  WHAT  HAS  TO  BE  INPUT  EEFORE  CONTINUING 

O  PRINT  ? 

PRINT  * , ' INDICATE  WHAT  HAS  **  NOT  **  BEEN  INPUT  YET .  SELECT  ONE 

PRINT  *,"■ - 

Phi  NT  *  ,  ■'  1  ,  AIRCRAFT  DATA. 

PR  I  NT  *  , '  2 .  APCD  DA  7  A. . 

PRINT  * ,  •'  3.  ARMY  UNIT  DATA .  ■' 

r~IN.  * , ' **  INPUT  0  IF  ALl  DaTa  Has  StrN  INPUT.' 

. :  read  *,nree 

I F \ NR  E  3 . L~ . 0 . OR . N R  E  3 . G~  .  3 )  T H EN 

PRINT  */NCT  A  VA LID  R E  =' L Y  1  ENT E R  < 0  .  .  . 3 )  .  •' 

G  U  T  0  1 2 
E.’  IL  I  >■ 

I  R\NFE3  .  EO  .  0  i  GO  TO  50 

**  DATA  STILL  NEEDS  TO  EE  INPUT-  FIND  OUT  HOW  TO  ENTER  THE  DATA 
PRINT  ^ 

\l  PRINT  *, -'HOW  WILL  YOU  ENTER  THE  DATA?  SELECT  ONE." 

PRINT  4,  - •' 

PRINT  1.  INTERACTIVELY  . ' 

PR  IN  i  *  ,  •'  2.  FRCM  A  USER  DEFINED  F .  L E  .  ’ 

'4  READ  4.NFILE 

IF 'NFILE.LT. 1 . OR .NFI LE . GT .2)  THEN 

PhINT  4,  'NUi  A  VALID  OPTION,  PLEASE  ENTER  <1  ,2)  .  •' 

GO  TO  14 
END  IF 


THE  CORRECT  STATION  TO  INPUT  THE  DATA 


r.Mi-J  i  ■*  ,  i’nU  i  !-*  VmL*  Lr'  KZ  crL.T;  c  i  nn  ri'jMir-J  . 

60  TO  44 
END  IF 

IF-MRES.Ej.O >  RETURN 
PRINT  * 

PRINT  *, 'ENTER  THE  DESIRED  FIREPOWER  OF  ' ,UNAME<NRES) 

READ  *  ,NFP(NRES) 

RETURN 

CHANGE  THE  anti -TANK  power  of  a  unit 

50  PRINT  *, 'SELECT  THE  UNIT  YOU  DESIRE  TO  CHANGE  THE  ANTI-TANK  PGWE 
1  OF." 

PRINT  * , ' - 

1 - ' 

DO  52  1=1  , NUN ITS 

F R I NT  6,1  , UNAN E C I > , NAT < I ) 

52  CONTINUE 
PRINT  * 

PRINT  */0  IF  NONE.-' 

54  READ  *,NRE5 

I -IMRES  . IT . 0 . OR .NRE3 . 5T.NUNITS)  THEN 

PRINT  * ,  'NOT  A  VALID  RESPONSE!  ENTER  AGAIN.-' 

GC  TO  54 
END  IF 

I  F'INRES  .  EG  .  0 )  RETURN 
PRINT  * 

PRINT  *  , '  ENTER  THE  DESIRED  ANTI-TANK  POWER  OF  '  ,  UNAME-’NRES) 

READ  * ,NAT (NRES) 

RE  1  URN 

**  CHANGE  THE  FRONT  LINE  TRACE  OF  A  UNIT 


IE  OF.-' 

P  R I  NT  * ,  ' - 

DO  62  1  =  1  , NUN ITS 

PRIM  i  6  1 1  ,  UNAME-.  I  ■  , NFT1. 1 ) 

CONTINUE 
PRINT  * 

PRINT  *,'0  IF  NONE.' 

READ  * ,NRE5 

I F  .  i FEE  .  L~  .  0  .  OR  ..NFS;  .  I~  .NUN ITS)  THEM 

PRINT  * ,  'NuT  A  VaLID  RESPONSE!  ENTER  AGAIN.' 
GC  TO  64 


I F  ■.  N  R  E ; .  E  J  .  U  ■  R  E  !  L)  RN 
PRINT  ♦ 

PRIM"  * ,  ENTER  THE  DESIRED  FRONT  LINE  TRACE  OF  '  . UNANEINRES) 


NFP'I  I  — NF"  I  ^  i 
NAT 1  ;=NhT  I  -  1  > 

NFT  ( I  >=NF7  \ 

N7A  C  < I > =NT A  C ( I  +  i ) 

NPK<I)=NPK<I+1) 

NT  P  ( I  }  =NT  F Jtl) 

NTV  ( 1 )  =N7'v'  ( I  +  1  > 

I AE  T I  I  ■>  1 

Nci-:i)=Nc:a  +  i> 

C0N7INUE 

SE7  UP  7HE  DA7A  FOR  7HE  ALCE  A7  7HE  FRONT 
J=NUNITS+ I 

UNAM  E ( J ) =  A  L  C  E - F  R  CN7 ' 

DO  61  1=1,5 

NT  ON',  J ,  I  >=N7GN<N  UNITS  ,  I ) 

CONTINUE 

NT  P  *>’  J  >  =NT  ?  ( N  UN  I T  3 ) 

NT1-/1  ( J  >  =NT'v!  < N  UN  I T  £ ) 

RETURN 

CHANGE  i  rife  NUMBER  OF  UNIT;.  A VA I lAoLe  FOR  THE  DEPLOYMENT 

PRINT  SELECT  THE  UNIT  YOU  DESIRE  TO  INCREASE  THE  NUMBER  OF 

PRINT  - 

DO  32  1  =  1  ,NUNIT£ 

PRINT  6,1  , UNAME \ I ) ,NUNT< I ) 

CONTINUE 
PRINT  * 

PRINT  *,'Q  IF  NONE.-' 

READ  ♦  ,.NFE£ 

I F IMRES . L~ . 0 . OR .NRES.GT .NUN ITS)  THEM 

FRiNT  * ,  ■'MO"  A  Uhl  ID  RESPONSE’  ENTER  AGAIN.  ■' 

GO  TO  24 


P  R  I :  J  .  ♦ 

FRIN~  >,  E:' NER  T; 
REhI  *  ,NUN"‘'NREE 

return' 


NUMBER  OF  '  , UNAME ’INREB) 


/Hi LAo I  S.I  .  f  Or  AN  AIRCRAFT 


SELECT  T-E  UNIT  YOU  DESIRE  TO  CHANGE  THE  FIREPOWER  OF 


PRINT  SELECT  T-E  UNIT 

PR  Hi"  +.  - 

DC  42  1=1 fNUNIT3 

PRINT  6,1  .UNAME  I  -  ,NFF  I 


PRINT  » 

PRINT  *,'0  IF  NONE. 

RE.-D  *  ,  N  R  E  ; 

I F  . NF.E£  .  LT  .  0  .  OF  .NF.ES.  GT  .NUN ITS)  THE 


umH'-j ijc  me  L;-ir,-iL i  ;  ;  ur  i  nt 

w 

7  Li  PR  IN  i  *  ,  ■'  ENTER  THt  NEW  LoADS/  DAY  OF  THE  RIGGERS  *1  REAL . 
READ  * , RC 
C 

C**  FORMAT  STATEMENTS 

r 

9  F  0  RMAT  -I  ////////  /////////////// ) 


RETURN 

END 

c**  s 

SUBROUTINE  ARMING1!  I C H 6 > 

C 

C**  THIS  WILL  MAKE  CHANGES  AS  DESIRED  FROM  THE  CHANGE  SUBROUTINE 
C**  FOR  THE  ARMY  UNIT  DATA 
C 

CHARACTER  NAME  1 1 0 )  *6 ,  UNAME  ( 1 1 )  #  1 4  ,  GNaME  3.-1  *  1  4  ,  FNAME 
CHARACTER  MS< 4) *5 , KG< 5; *4 ,MD< 3) *5 

COMM  ON/ ARM/NUN  ITS  ,NUNT  (10)  ,NTGN(  1  i  ,5)  ,NFP(10.*  ,NAT<10)  ,NFT<10) 
C  NTACUO)  ,NPK(  10)  ,NTP(li)  ,NT'/<  1 1 )  ,  I A  B  <  1 0  >  ,NCI(10)  ,IVP,NHG<2 
C  CMM ON/ C H R/NAM E , UNAM E , GMAM  E , M  S , K  G , M D 
C 

C**  GO  TO  THE  CORRECT  STATION  FOR  THE  CHANGE 


PRINT  9 

GO  TO  (20,30,40,50  ICHG 

u 

C**  DELETE  AN  ARMY  UNIT  FROM  THE  DATA  LIST 
C 

20  PRINi  * ,  •'  SELECi  ONE  OF  THE  AF.My  Ui-iiiS  TO  DELETE 

PRINT*,' - 

DC  22  1  =  1  ,NUNITS-1 
PRINT  5,1, UNAME ( I > 

22  CONTINUE 
PRINT  * 

PRINT  *,-'0  IF  NONE.-' 

2^  READ  *,NFES 

I  r  N  R  E  S  .  LT  .  u  .  U  R  .  N  R  E  z  .  jY"  t  j\j  UNIT  3  -  T  -  EN 

PRINT  *  , 'NO !  A  UAL I D  RESPONSE  !  ENTER  AGAIN. ' 

GO  TO  24 
END  IF 

I ? ( NRES.EQ.O .»  RETU R N 
I F 'IMRES  . LT.NHQ-1 1 )  .>  NHQ(  1  .'=MHC. .  1.--1 
IF  (MPEG  .  EQ  .NHG*;  I S )  MHG  >. i  )  =  0 
I  Fm’-iPES  .  lT  ,NHQ(  2/  I  NHQ<2>-NHQ<  2.  -! 

I  F  (NRES  .  EQ  . N HQ<2.» .»  N HQ (2 > = 0 
I  F'INRES  .  LE .  I  r'P  -  IYP=I  Y5-: 
riUM  IT;=NUN  IT  3-1 
DO  25  I=NRE3 ,NUNIT3 
UNAME \ I >= UNAME ( 1*1  • 


.err-  i . 
)C  26  , 


f  +  +  +  ^  +  +  t  +  t  + 


SUBROUTINE  APDINCW  I CHG) 

THIS  WILL  MAKE  CHANGES  AS  DESIRED  FROM  THE  CHANGE  SUBROUTINE 
FOR  THE  APOD  DATA 

CDMMON/APD/DI ST (2)  ,TINTER( 10)  ,TINTRA(10  )  ,EAS<  10 ,4)  , CPI  (4)  , 

C  NHAC2) ,NPAL , RC , GLS( ? , 3) 

GC  TO  THE  CORRECT  STATION  FOR  THE  CHANGE 


GOTO  <10,20,30,40,50,60,70)  ICHG 
C 

:*-<•  CHANGE  THE  DISTANCE  FROM  THE  US  TO  THE  APOD 
C 

10  PRINT  *, 'ENTER  THE  MEN  DISTANCE  (REAL)  FROM  THE  US  TO  THE  APOD 
READ  *  ,  DI  ST •>  1 ) 

RETURN 

C 

C-*A  CHANGE  THE  DISTANCE  FROM  THE  APOD  TO  THE  FRONT 

n 

2D  PRINT  s.'ENTiR  THE  NEW  DISTANCE (REAL)  FRCM  THE  APOD  TO  THE  FRO 
READ  *,DTST(2.: 


CHANGE  THE  COMBAT  VALUES  OF  CLOSING  UNITS 

30  PRINT  *, 'ENTER  THE  COMBAT  VALUES  FOR  THE  FOLLOWING  PERIODS: ' 

DC  32  1=1 ,NF 

PRINT  FOR  PERIOD#',! 

READ  *,CPI(I) 

32  CONTINUE 
RETURN 

I**  CHANGE  THE  MHE  PREPOS IT  I ONED  AT  THE  APOD 

40  PRINT  *,  'ENTER  THE  NEW  MHE  PREPOSITIONED  AT  THE  APOD  (INTEGER) 
READ  *,NHA(!> 


CHANGE  THE  MHE  PREPOSITIONED  AT  THE  FRONT 

PRINT  *, 'ENTER  THE  NEW  MHE  PREPOSITI GNED  AT  THE  FRONT  ( INTEGER 

READ  *,NHA'.  21 

RETURN 

l HhN G E  i H E  CA Pa l, I T  Y  OF  t  H E  ALLS 


PRINT  *, 'ENTER  THE  NEW  CAPACITY  OF  THE  ALOE  (INTEGER).' 
READ  *,NPAL 


o  o  o  o  o 


3UBH'.  2:='  FROM  CORPS: 
DO  22  1  =  2  ,NP-t2 
SUBH( I >=■ 

CONTINUE 
SUBH‘;NFt3)  = 
subh!np+4>= 

SUEH'NP+5 ■= 


PERIOD 

MHE  AT  APOD 
MHE  AT  FRNT ' 
ALCE  CAP-' 


22 

C 

C  +  + 
C 


2-1 


3UEH(NP+6)  =  -'  RIGGER  CAP' 

WRITE  THE  DISTANCES 

WRITE1'  10,4  >  HOG*.  I  > 

DC  23  1=1,2 

WR ITE  ■;  I5,o  >  3UBH  ( I )  ,  D I  ST  C I ) 

CONTINUE 

WRITE  THE  I NT tR  AND  INTRA  i URN~TIME3 

WRITE1. 15,4  -  HDG (2 > 

DC  24  I=1,NMAC 

WRITE! 15,8) NAM E  ! I ) ,TINTER( I ) ,T INTRA! 
C  EA3! I ,1) ,EASII ,2) ,EAS(I ,3) 

CONTINUE 


i  > 


wp.r 


FHE  COMBAT  POWER  INDEXES  FOR  UNI'S  CLOSING 


WRITE! 15,4) HDG ! 3) 

DO  26  1=1 .a 

WRITE'.'  15,1  7) SUE'H!  1+2)  , CPI!  I  > 

CONTINUE 

NUMBER  OF  MHE  PREPOSITI  C'NED 

WRITE'  1 5, 4) HDG' 4 « 

J=NP*  2 
DO  23  1=1,2 

WRITE! 15,17) SUEH C I +J) ,MHA! I  1 
CONTINUE 

T.-iE  NUMBER  OF  PALLETS  AN  ALOE  UNIT  CAN  DOWNLOAD 


C  +  + 


d=NP  +  j 

WRITE  :5, 19'SUBH;  J )•  ,NPAL 
RIGgER  CaPaEwLIT  PEn  Day  DET tn'MiNED 


C 

C++ 

c 

'■f 


WRITE'  15, 6) SUEH! J+l  ■ .RC 
CLOSE! 15 ■ 

RETURN 

WRIT-  A  FiLr.  r ... F  Ar  M  DATA 

PR  IN"  +, 'ENTER  THE  FILE  NAME  DESIRED  FOR  THE  ARMY  DAS 
1  MAX' :  .  ' 

REf->D  2 ,  .'-Name 


i  L  HA  r. 


D-4S 


WRITE'.  15, 4)TITlE 
DO  53  1=1 ,  NUN ITS 

W R I T E <  i  5 , Q  i  l'NAM E ■- 1  ■'  ,NLNT ■: : >  ,NT0N<  I  ,  1  ■  ,NTCN<  I  ,2)  ,N7GM<  I 

C  1  J  i  L-’i  1  '■  *  ,  H  |  NT  Li).*  ,  5  j.  .  .  (i  *n  .  .  i  ■'  , .  <  r  i  .  *  ;  ,  1  1  i  t-i  L  1  )  ,  1 

C  NTF  v  I ''  ,NT'X  I ;  ,  I  Ac  \  I  ;  ,NCI  •.  I ) 

CONTINUE 
CLOSEI  1  5.' 


■ur.r.Hi  o  i 


F OF, Mm T  r. A c 
F  FMci  i  A .  1 

F  C  RMAT A  o  ,  I  4 , 5  r  5 . 1  , 
FORMAT <A1 4  ,Fo .0 ; 

F  0  RMAT  \  ///  ///////  / 

F 0 FMaT ( A 1 4 , 5 F  a  .  1  ) 


3(13,  IX,  I2>  ,14,14, F4.1  ,2(13)  ,14:. 


4_  0  b 

THE  EQUAL I . /  C UN 

I<  1  .IMJ 

NTS 

FOR 

SHI 

PM ENT  OF 

UNITS  TO 

THE 

APOD 

o  n  i 

FMENT  OF 

UNITS  TO 

THE 

F  F,  Ur 

T  \  ,  T 

SHI 

PM ENT  OF 

UNI'S  TO 

THE 

FRCl- 

T  UI 

Sri  I 

FMENT  OF 

SUPPLIES 

FOR 

THE 

THEA 

SHI 

FMENT  CF 

SUPPLIES 

FOR 

THE 

FROM 

SHI 
RI  6 

FMENT  OF 

! J  c  r,  Cm  Pm  E 

SUPPLIES 

i  L  1  .  ' 

FOR 

THE 

APOD 

C.ihRAC  .  EF  NaME 1 1  0 ) *6 ,  UMAME <  1 ! >*14 , GNAME (  3  <*14  ,  MS <4  ;*5, KG< 5) *4 , 
MD<  3)  *5 

ULMMGN/ACF/NMAC  ,NAC  <  1  D  ;  ,  AvAl LI  1 0 >  ,  U  >  c  *.  1 0 , 4 ;  ,KARG\  I  0 , 5 , 2;  ,KTbil 
C  GT 1 1 0 >  ,MHE ■:  1 0 ,NFP<  10)  ,NPRK<10> 

COMMCN/APD/DI 3TI 2)  ,T INTER: •'  i  0 ;  ,TIN7RAI  1 0 )  , EAST  1 0 , 4)  , CPI  I  4)  , 

C  NHA < 2) ,NPaL , RC , GLSI 9,3) 

C C MM CN/A RM/ N UN ITS, N UNT I 10/ , NT  ON I !  1  , 5 >  ,  N  F  P (1 0  >  ,  MAT I 1 0 ) , N  FT  I i 0 )  , 
C  NT  A  Cl  10  >  ,  N  F  K  <  10;  ,  NT  Pill  >  ,  NT'J  <  1 ;  >  ,  I A  5 1 1 0  >  ,  N  C  i  11 0 )  ,  I Y  P ,  N  H  G  <  2 ) 
C  CMM  CN/TA  B/N  P  ,  L  P  ,  I  ?  ,  N  CR.NE3,  N  PR  IT  ,  LL 1 1 0 , 2;  ,  LLK  10,21)  ,  L  PX  <10,4,5 
C  LPU'IIO  ,3,4  '  ,AI  J<  15C  ,300;  ,RHSC30>  ,LPS<3,5,4)  ,LPSL<4;>  ,LPRI 10 
C  .NT'.  150;  ,LMT<3)  ,NC<10)  ,NWGT<  150  >  .NDUI  150)  ,NID 
C CMM CM/" C HR/  NAME,  UMAME  ,  GNAME  ,M'S  ,  KG  ,MD 


I 


UK  -  .  t  C 1  i ,  j  8 -  NEC  ,  LPU  w  ,  -j  ,  L  ,AI  J (NEC-  ,LPUC  I  ,  J  ,  L ;  , 
UNrtME ;  I  j  ,MDc  J  •  ,L 
IF  (LANS. EG. 0>  GO  TO  9" 

PRINT  03,NE3|IPU< I ,J,L> ,AI JCNEG , LPLK  I ,J,L)) , 
UNAMEC  I )  ,MDCJ>  ,  L 
CONTINUE 
continue 


fHE  EXCESS  FOR  THIS  PERIOD 

AI JCNEG ,  LPSC  2 , K , L> )  =  -1 .0 

WRITE<  1 3 ,02)NEQ , LPSC  2  .  K  , L)  ,AI JCNEG , IPS-; 2,K,L> > 

IF  ( LANS . EQ . 0 )  GO  TO  98 

PRINT  02 ,NEQ , LPSC 2 , K , L)  ,AI JCNEG , LPSC 2 ,K , L) > 

fHE  EXCESS  FROM  THE  PREVIOUS  PERIOD 

IF(L.NE.l)  AI JCNEG, LPSC2,K, L-l  >  .)=  1.0 
IFCL.EQ.l)  GO  TO  99 

WRITE-:  1 3 ,02)NEQ , LPSC 2 , K , L-l )  ,AI  JCNEG , LPS-1 2.K.L-1 
IF  (LANS. EG. 0>  GO  TO  99 

PRINT  02 ,NEQ . LPSC 2 , K , L-l ) ,AI JCNEQ , LPS( 2 ,K , L-l ) ) 

INPUT  THE  RIGHT  HAND  SIDE  OF  THE  EQUATION 

RHS(NEG)=  0.0 

WRITE-:  1 3 , 03)NEQ  ,  RHSCNEQ) 

I F( LANS . EQ . 0)  GO  TO  92 
PRINT  08,NEQ,RHS-:NEG) 

CONTINUE 
rOR  PASSENGERS 
NE3=NEG+ i 

-OR  EACH  TYPE  OF  AIRCRAFT 
DO  100  I=1,NMAC 

CHECK  TC  SEE  IF  BEYOND  THE  LIMITS  CF  EITHER  THE  TYPE 
CP  MISS CN  L -:  I  ,  1 )  OR  NFP 

IFC2.LT. LL(I ,1)  .OR.  2 . GT . LUC 1,1))  GOTO  100 
IFCL.LT.NFPC  I :- )  GO  TO  100 
DO  1  02  K=LL  ■;  I  ,  2)  ,  LUC  I  ,  2> 

A I  JCNEjl  ,  LPXC I  ,A,K,L.n=  KARGCI,K,2) 

WRITE-!  1 3 , 04)NEQ ,  LPXC 1  , 2  ,  K  ,  L>  ,AI  JCNEQ  ,  LFXC I  ,  2 ,  K  ,  L 
1  NAME; I ) ,MS( 2) , KGCK) ,L 

IF  CLANS. EG. 0)  GO  TO  103 

PRINT  0  A  ,  NEQ ,  LPX  Cl  ,  2 ,  K  ,  L )  ,AI  JCNEG  ,LPXC  I  ,  2 .  K ,  L  '■  -  . 
1  NAME; I- ,MSC2> , KGCK) ,L 

CONSIDER  SUPPLY  CARGO  IF  BULK  CARGO  IS  CONSIDERED 

IFCK.EQ.3)  THEN 

AI JCNEG , LPXC I , 2 , 5 , L) )=KAR3C 1,5,1- 


GO  TO  102 
END  IF 

PRINT  04,NEQ,LPX<I ,2,5,L) ,AI J<ME5,LPX(I , 2 , 5 , L ) ) , 
l  name  :  I  >  ,ms<2>  , K3-: 5)  ,l 

CONTINUE 
CONTINUE 

FOR  Each  TYPE  OF  UNIT 

DC  134  I=:,NUNITS+i 

IFdAB(I)  . E3. 1 )  GO  TO  104 
DG  105  J=2 , 3 

IF\ I .GT.IYP.AND. J.NE.2.AMD.I . LE .NUN ITS)  GO  TO 
A I J (NEQ , LPLK  I ,J,L))=  -NT  ON ( I ,4) 

WRITE-:  1 3 , 03)Nc3 , LPU(  I  ,J,L)  ,AI  J(NE3 ,LPU( !  ,  J,L) 
1  UNAME-:  I )  ,MD(  J)  , L 

IF  -: LANS  . E3 . 0 )  GO  TO  105 

PRINT  03 , NEQ ,  LPU-l  I  ,J,L>  ,AI  JCNEQ ,  LPU<  I  ,J,L>)  , 

1  UNAME-1 1 )  ,MD(J>  ,  L 

CONTINUE 
CO NT  I NUE 

THE  EXCESS  FOR  THIS  PERIOD 

AIJ<NEQ,LPS(2f4fL>>=  -1 .0 

WRITE  -:  1 3 , 02  )NEQ ,  LPS-:  2 , 4 ,  L)  ,  AI J  (NEQ ,  LPS  ( 2 , 4  ,  L  :> 

IF  ( LANS . E3 . 0 )  GO  TO  106 

PRINT  02 ,NEQ , LPS( 2 ,4 ,L) ,AIJ<NE3 , L?S« 2,4,L> ) 

THE  EXCESS  FROM  THE  PREVIOUS  PERIOD 

IF-IL.NE.l)  A I  J  (NEQ  ,  LPS<  2 , 4  ,  L-l )  )=  1.0 
I  FI L  .  EQ. 1 )  GO  TO  107 

WRITE-!  13,02 )  N  c  Q ,  L  P  S  -.  2 , 4  ,  L  - 1  ,  A I J  -:  N  E  Q ,  L  P  b  ( 2 , 4  , 
IF  (LANS . EQ . 0  *  GO  70  107 

PRINT  02, NEQ , LPS( 2, 4, L-l) ,AI J(NEQ , LPS< 2 , 4 , L-l 
INPUT  THE  RIGHT  HAND  SIDE  OF  THE  EQUATION 

rhs-;ne3)=  o.o 

W RITE(  1 3 , 3  8 )  N E G  ,RHS  N E 0  ) 

IP( LAMS . EQ . 0)  GO  TO  90 
PRINT  OS ,NEQ , RHS(NEQ) 

CONTINUE 

SE"  UP  EQUATIONS  FOR  THE  SHIPMENT  OF  UNITS  VIA 
DIRECT  DELIVERY  <J=1>  ONLY  IF  THERE  ARE  DIRECT 
DELIVERY  AC  AVA I  LA B L E  < LHT ( 1  - . NE . 0 > 

IF( LMT ( 1 ) . E 3 . 0 )  GO  TO  07 


SHIPMENT 


•-  '  hi  : 

PRINT 
PR; NT  ■*  ,  /  ■ 


wr:t£-:i2,*>"  unit  shipment  direct 

WRITE-11 3, *>  - 

FOR  EACH  PERIOD 
DO  10  L=1,NP 

FOR  OUT,  OVER,  AMD  BULK  CARGO 


for  each  t 'FE  of  aircraft 
DC  1  A  1  =  1  ,NMAC 

C.-ECK  TO  SEE  IF  BEYOND  THE  LIMITS  OF  EITHER  THE  TYPE 

OF  MI  3  3  ON  L '  I  ,  1  >  ,  TYPE  OF  CARGO  Lw,2>,  OR  FF 

I  F  \  1  .  LT  ,  L L  ( I  ,  1 .)  .OR.  1  .  GT  .  L U ( I  ,  1 )  '  G U  TO  14 

I r, K .LT . LL< I , 2)  .OR.  K.GT ,LU< I ,2> ;  GOTO  14 

IFIL.LT.NFP-  I.')  GO  TO  14 
AI  J'.NEu  ,  LPX(  I  ,1  , K. ,  L ) )  =  KARGI I  ,  K  ,  1  > 

WRITE  .  1  2  ,Q4>hE0,LPX<  I  ,  1  ,K,L>  ,AI  J'T-iEQ  ,  LPX\  I  ,1 ,K,L> 
1  NAME'  I .)  ,MS<  1  >  ,  K G  i  K )  ,L 

IF  ( LANS  .  EQ .  0  •  GO  TO  14 

PRINT  04  ,NEQ  , LPX(  I  ,  1  , K  ,  L  '  , AI  J'INEO  , LPX !.  I  ,  1  , K ,  L > ) , 

1  NAME-  I >  ,MS ■  I • .KGIK) ,L 

FIR  E- 1  -  UNI  ~  T-aT  IS  NOT  AIRBORNE  CAPABLE 


I  F  1  a  B  >.  I  ■  .  E  0  .  1  1  G  C  F  0  ic 
!  =  .GT.IYP.AND.I  .LE.NUNITS)  GOTO  IS 
i-i  »  w  '  i  A  s  ,  L  r  1  i  , ;  ,  L =  “I;  t  ON  (I  ,  K  J 
WRITE . I  2 ,02)HE3 ,LPU< I , 1 ,L) ,AI J CNEQ . LPLK  I ,1 ,L>> , 
LNAME-:  I  -  ,M,D'.  1  >  ,  L 
IF  < LANS  . EQ . 0  •'  GC  TO  IS 

PRlsr  CG.NEj.LFU;  I  ,1  ,L)  ,Al  J'lNEO , LPLK  I  ,1  ,L>;  . 
UNAME-:  I  >  ,MD<  1 )  ,L 


Tr-E  EXCESS  FOP  THIS  PERIOD 

A I  u  1 E  u  ,  L o .  ,  H  ,  ~ —  —1  .0 

WRITE’.  1  3 , 02>NE3 , LPS'1 1  ,K,L>  ,AI  J'lNEO , LPS<  I  , K , L)  > 

IF  LANS  . EQ  . 0  GO  TO  13 

PRINT  02,NEQ,LPSI  1  ,K,Lj  ,AI  JOiEO ,  LPSX  I  ,K,L>  ! 

THE  EXCESS  FROM  THE  PREVIOUS  PERIOD 

IF(L.NE.l)  AI  J'lNEO,  LPS'.'  I  ,  K  ,  L  - 1  =  1.0 

IF’ L.E3. 1 >  GC  TO  1- 

WRITEv  13,02«NEQ,LFS'  1  ,  K  ,  L  - 1  •  ,AI. J’lNEO,  LPS  <  1  ,  K ,  L  - 1 


0 


DO  20  1  =  1, NMA C 

! H E C K  TO  SEE  IF  BEYOND  THE  LIMITS  OF  EITHER  THE  TYPE 
OF  MI  3 SON  LC I  ,1 )  OR  NFP 

IF-:;  .LT.LLd  ,!>  .OR.  1  .  GT  .  LLK  I  ,  1 ) )  60  TO  20 
IF’L.LT.NFPd))  60  TO  20 
DC  22  K=LL( I  ,2) ,LU< I ,2) 

A I  J  ■;  M E  Q  ,  LPX  ( I  ,  1  ,  K  .  L  >  >  =  KAR 6  ( I  ,  K  ,  2 
WRITE'!  1  3,04>NEQ,LPX-:  1 ,1  ,K,L)  ,A!  J<NE3  ,  LPX<  I 
NAME! I  >  , MS < 1 >  , K 6 ( K ) ,L 
IF  <  LANS . EQ . 0  >  GO  TO  23 

PRINT  04 ,NE3 , LPX< I  ,  1  , K , L) ,AI J<NEQ , LPX( I , 1 , 
NAM  Ed)  ,MS-d>  ,  KG<  K)  ,L 

IONS I DER  SUPPLY  CARGO  IF  BULK  CARGO  IS  CONSIDERED 


IF'1K.E0.3)  THEN 

A I J  <  N  E  S ,  L  PX  ( I  , !  ,  5  ,  L ) ) = K  A  R  6  1 1  , 3 , 1 ) 

WRITS'-  !13,04 ■NEQ.LPX'  1 ,1 ,5,L: ,AI JINEO ,L?X( I ,1 , 
NAME-;  I  >  ,MSa>  ,KG(5)  ,L 
I F  'I  LANS  .  EQ .  0 )  GO  T Q  22 

Ei.SE 

GO  TO  22 
END  IF 

PRINT  04  ,NEQ , LP)«  I  ,1  ,5,L)  ,AI  J<NE3 , LPX'I  I  ,1  , 5  ,  L 
NAM  Ed)  ,MS'1 1 )  ,KG<5>  ,L 
CONTINUE 
CONTINUE 

for  each  type  of  unit 

DO  24  1=1 jMUNITS* 1 
IFdAB(I)  .EQ.l  .  )  GO  TO  24 
I F<I . GT . IYP . AND . I . LE .NUNITS)  Gu  TO  24 
AI  J'INEQ  ,L?U<  I  ,  1  ,  L )  )=  -NTON(  1,4) 

WRITE-:  1 3 , 03>NE5 ,  LPU(  I  ,1  ,L>  ,AI  J<NEQ  ,  LP'J(  I  ,1 
UNAME <  I  >  , M D -1 1 )  ,L 
IF  ( LANS . EQ . 0 )  GO  TO  24 

PRINT  03 ,NEQ , LPLK  I ,1 ,L) ,AI J(NEQ , LPU( I ,1 ,L) 
UNAME  i  I )  .MD-d  ,L 

CONTINUE 


CJ  o 


THE  EXCESS  FOR  THIS  PERIOD 

AI J(NEQ,LPS< 1 , 4 , L ) J  =  -1 .0 

WRITE!  1 3 , 02)NE3 , LPS( 1  , 4  , L.»  ,AI  J < NEQ , LPS<  1  , 4 ,  L >  > 

IF  < LANS .  EQ  .  0 )  GO  TO  26 

PRINT  02 , NEQ , IPS < 1 ,4,1) ,AI J<NEQ , LPS( 1 , 4 , L > ) 

THE  EXCESS  FROM  THE  PREVIOUS  PERIOD 

IF-L.NE.l)  AI  J'INEQ ,  LPS'1 1  , 4 . L-l ) )=  1.0 
IF<L.E3.11  GO  TO  27 

WRITE1: 1 3 , 0  2  :>  N  E  G  ,  L  P  S  <  1  ,4, L-l;  ,AI J<NEQ,LPS< 1  ,4, L-l) 
IF  < LANS . EQ . 0 )  GO  TO  27 

PRINT  02,NFQ,LPS<1 ,4fL-l) ,AI  J'INEQ ,  LPS<  1 ,4, L-l)) 

INPUT  THE  RIGHT  HAND  SIDE  OF  THE  EQUATION 

RHS'INEQ)  =  0.0 

WRITE  <13,08) N EQ,RHS< N E  3 ) 

I F( LANS . EQ . 0 )  GO  TO  10 
F R I ;  08  ,NEQ , RHSCNEO) 

0  Or  IT  I N  U  E 

SET  L'F  EQUATIONS  FOP  THE  SHIPMENT 
OF  UNITS  TO  THE  APOD  VIA  AIR9RN  DELIVERY 

I p LMT •: 2 )  . EQ  . 0  . OR  . LMT (3)  .EQ.O )  GO  TO  43 

PRINT  *  ,  •' - ■ 

PRINT  UNIT  SHIPMENT  AIRBRN' 

PR  IN”  - 

WRITE1  1 3 ,  ■* >  - ' 

WRITE1  I  2  ,  ■  UNIT  SHIPMENT  AIRBRN  ' 


FOR  EACH  PERIOD 
'J'-  J  ^  L  —  .  . 1 1  r 

F  .F  u OT  ,  OYER .  AND  BULK  CARGO 


2.—  ~  n  u  t~  H  .  ‘r  L  rtri  r  . 

10  34  i=:,nmac 

TO  SEE  IF  BEYOND  THE  LIMITS  OF  EITHER  THE  TYPE 
MI  SOON  L  •:  I  .  1  J-  ,  TYPE  uF  CARCG  L(1 ,2)  ,  OR  FP 

I F 4  .  LT  .  LL 1  I  ,  1  i  .  OR  .  4 .  QT .  Lu  *11,1 )  >  GO  TO  3« 

IFOK.LT ,LL< I ,2)  .OR.  K.GT.LLKI ,2))  GOTO  34 

IF-L.LT.NF?-:  I  >  GO  TO  34 

AI  J<NE3 , LPX 'II  ,4,K,L )  )=  KARG(  I  , K  ,  1 ) 

WRITE  1 0-  ,34  NEQ  . LPX 0 1  , 4  , K  , L >  ,AI  J'INEQ  ,LPX<  I  , 4  , K  , L)  > 
NAME1  I  >  ,MS >,  4  ;  ,KG<K)  ,L 


o  o 


PRINT  04,NE3,L?'‘U  I  , 4  ,  K 

NAM  E  ■;  1 .1  ,  M  £  < J  >  ,  K  G  (  K )  ,  i_ 

CCNT I NUE 

:£R  EACH  TYPE  OF  UNIT  AIRBORNE  CAPABLE 

DC  36  1=1 ,NUNIT3+1 

I F (  IAB(  I )  .EQ.O )  GO  TO  36 
A I  J •: NEC ,  LPLK  I  ,  1  ,  L.)  )  =  -NT ON (  I  ,  K ) 

WRITE-;  1 3 , 03)NE3 , LPLK  I  ,1  ,L)  ,AI  J<NE3,LPU<  I  ,1  ,L.)  >  . 

UNAME ( I ) ,MD< 1 ) ,L 
IF  ( LANS  .EQ.O,1  GO  TO  36 

PRINT  03  ,NEQ  ,  LPLK  I  ,1  ,L)  ,A1 J(NE3 ,LPLk  I  ,1  ,U)  , 
UNAME< I ) ,MD( 1 ) , L 

CONTINUE 

FHE  EXCESS  FOR  THIS  PERIOD 

AI J(NE3 , LPS( 3 , K , L) )=  -1.0 

WRITE1!  1 3 , 02)NEQ  ,  LPS(  3 ,  K ,  L)  ,AI  J(NE9  ,  LPS<  3 ,  K ,  L) ) 

IF  (LANS. EQ.O)  GO  TO  33 

PRINT  02, N E Q , L P S *. 3  , K , l :*  ,AI  J ( M E 3 , L ? S < 3 , K  , L > ) 

:-E  EXCESS  FROM  THE  PREVIOUS  PERIOD 

IF(L.NE.l)  AIJ*NEQ,LPS'.3.K,L-i))=  1  .0 
I F  i. .  E 9 . :  )  GO  TO  3 9 

Ui  R I T  E  1  3 , 0  2 )  N  E  3 ,  L  P  S  ( 3 ,  K  ,  L  - 1 )  ,  A I J  ( N  E  Q ,  L  P  S  ( 3  ,  K  ,  L  - 1  > 
I  ~  ( LANS  .  z.  j  .  0  GO  T-J  39 

PRINT  02 .ME 3 ,LPS( 3 , K , L-l ) ,AIJ<NEQ , LPS( 3 ,K ,L-1 ) ) 
INPUT  T-E  =  I  '3r-T  -AND  SIDE  OF  THE  EQUATION 


R  H  S  •;  N  E  j  > 

=  0.0 

URITE-;  13 

,  03 ,'NEQ  ,  RH 

I  =  (1.ANS  . 

Z  ‘js  •  J  ‘  Z'J  i 

fr:m~  os 

,NE  j  .  F  r.c  '  N 

•.E>me  j*  ; 


DC  40  1=1 ,NMAC 

rc*  SEE  IF  EE  •  3ND  THE  LIMITS  OF  EITHER  THE  TYPE 


1 


v'J  K  .  I  C  *  W  (  0  J  1  —  A  .  -  i  —  t  -  J  i  L.  .  I  ^ 

NaME  ■  -  '■>  ,MS  4.  ,  -  :• .  K  .  ,  _ 

;  r  \  _ANS  .  fcvi  .  G  ■  Gl  i  U  4  j. 

PRINT  04  ,NEQ  ,  Lr  C  I  ,  4  ,  K  ,  L  ,  A I .  J  ■ .  E  J  ,  _ I  ,  4  .  _ 
NAME(  I  ■  ,M5<4  ,KGvK  •  , L 

?er  supply  cargo  if  bilk  cargo  i ;  considered 

IF(K.EQ.3i  THEN 

A I J  ••  NEQ  ,  LPX.\  I  ,  4 ,5  ,  L  '  >=KaRC-*  1,5,1  1 
WR I TE  < 1 3 , 0  4  >  NEQ , LP  X (  I  ,4 ,5  .  _  •  .-I NEC  ,  L?  •  *  I.J.5.L' 
NAME<  I .»  ,MS<4.  ,K3'  5  , L 
I z wANS  .  z.  J  .  J  GO  T C  4^ 

GO  T0  42 
END  IF 

P  R I  NT  0  4  ,  N  E  :  ,  L  -  .  ■;  I  ,  4 , 5  ,  L  ,  A I  J  ■  N  E  3 ,  L  PX  <  I  ,4 ,5  ,L> , 
NAM E I  )  , M S'. 4  •  ,  K U 5  ■  , L 
CONTINUE 
CONTINUE 

-0.-  T ,  FE  Cc  UNIT  AIRBORNE  CAPABLE 

DO  44  1  =  1,1  r" P 

I F  \  I A  B  ( I )  .  E  Q  .  0 G  L  TO  44 
A I J < N E3 , LPLK  I , 1 , L > > =  -NT ON <I,d ) 

WRITE<  13, 03>NEQ,LPU<  I  ,1  ,L >  ,AI J(NE3 ,  LPIN  I  ,  1  ,  L D  '  . 

UN  AM  E  <  I  >  ,MD  •:  I )  ,L 
IF  'I  LAN  S .  EU .  0  30  TO  4  4 

PRINT  03, NEQ, LPLK  1 ,1  ,L>  ,AI  J(NE5 ,  LPU<  I  .1  ,  L  > )  , 
UNAME'i  I  >  ,MC".  1 )  ,L 

CONTINUE 


:SS  FOR  THIS  PERIOD 


A I J (NEQ , LPS <  3 , 4 ,  L )  )  =  -1  .0 

WRITE ( 1  3 ,02>NE3,i.P3< 3 , 4  ,  L)  ,AIJ<NEQ ,  LPS..  S  ,  4  ,  L .* .) 

IF  ( i_AMS  .  EQ  .  0  ;  GO  TO  46 

PR  I  NT  02  ,NEQ  ,  LPS 3 , 4 ,  L)  ,  A I J  (NEQ ,  LPS 3 , 4 ,  l  1 

THE  EXCESS  FROM  THE  PREVIOUS  PERIOD 

Ir(L.NE.l)  AI JXNE9  ,  LPS( 3 , 4  ,  L- 1 ) )=  1.0 
I  F  ■!  L  .  EQ .  2  >  GO  TO  47 

W  RTTci  1  3 , 02.iNEQ  .LFSI 4 , 4  ,  L-l .)  ,AI  J  (NEQ ,  L?S'  3 , 4 ,  l-1 
IF  (LANS .EQ .0)  GO  TO  47 

PRINT  02  ,NE3 ,  LPS  1 3 , 4  ,  L-1 ,AI  J(NEQ ,  LPS(  3 ,  J  ,  L-1  ) 

INPUT  THE  RIGHT  HAND  SIDE  OF  THE  EQUATION 

RHS(NEQ>=  0.0 

WRITE .13,05 'NEQ , RHSvNEG) 

IF  -ANS.EQ.O 1  60  TO  30 
PRINT  03  ,NEQ ,RH3(NEQ > 


30  CONTINUE 

Sc-  UP  EQUATIONS  FOR  THE  SHIPMENT 
C  +  *  OF  SUPPLIES  THE  THEATER 
C 

43  PRINT  - - 

PRINT  THEATER  SUPPLIES ' 

PRINT  4/ - 

WRITE'.  13,4  - ' 

WRITE'! 13,4..  *  THEATER  SUPPLIES' 

-  r_.R  EACH  PERIOD  AFTER  THE  INITIAL  PERIOD  OF  DEPLOYMENT 

DO  4?  L=2 ,NP 
NE3-NE3*! 

C .  . . . 

I  *"*  FOR  EACH  TYPE  OF  AIRCRAFT 
Du  50  1=1 ,NMAC 
C 

U4*  FOR  EACH  MISSION  EXCEPT  INTRA 

DO  51  •  ?=  L L ( 1,1)  ,  L U <  1,1' 

IF\J.E3.3)  GO  TO  5i 

044  CHECK  TO  SEE  IF  BEYOND  THE  LIMITS  OF 
0*4  EITHER  TnE  TYPE  OF  CARGO  L 0 1  , 2  ,  OR  PF 

‘w 

IF(3.  LT.LL'1 1 ,2)  .OR.  3 . 37  . LLK  I  , 2)  GO  TO  51 
IFIL.LT.NFPa>>  GO  TO  5. 

A ;  J  >,  N  z.  3  ,  L  ?  ( >:  1  ,  J  ,  5  ,  L )  =  PI  A  R  G  <  I  ,3,1  > 

Lip  T T ^ i  3  . Oil  ■  pw  y  j  c  i  x  a  -  r .-vicn  j  c/ /  ▼  t  c-  »  •.  . 

1  NAME-:  I  >  ,M$<  J)  ,KG<5>  ,L 

IF  ( LANS . ES . 0 >  GO  TO  5: 

PRINT  04 ,NE3 , LPXX  I ,J,5,L)  ,AI J<NE3 , LPX( I ,J,5,L)) , 

1  NAME-1 1 )  ,MS<J> ,KG<5> ,L 

::  CONTINUE 

50  CONTINUE 

C rOr  E.^CH  77  PE  OF  UNIT 
DC  32  I  =  ;  N;_ 

C 4 *  FOR  Each  mode-  via  FRONT  i  APOD 
DO  53  M=1 ,3 

I  -  1 1  .  G~ . I Y ?  .  AN D  .  I  .  L E  . N UN ITS. AN D  . M . N E . 2 )  GO  TO  53 
I  f  Lrl :  •,  1  1  .  LT .  1  .  AND .  I  Ac  -1 1  .  EG  .  0  .  AND  .M  .  EQ .  1  >  GO  TO  53 
I F  1  LMT<  2"-  .  EQ  .  0  .AND  .M .  EG .  1  >  GO  TO  53 
I P •;  LMT C  3  ■-  .  EQ .  0  . AN D  . M .  E 3 . 1 )  GO  TO  5 3 
I F <  I AB-1 1 )  .  EQ  .  1  .AND  .M  .ME  .  1  '  GO  TO  53 

0**  F'J-:  E:— L 4  OEFYIIED  UNIT  BEFORE  L 

C 

DO  55  I L= 1 , L  —  i 

AI  J-.NE3.LPU-:  I  , M .  I L  1  >=  -NTON-.  I  ,5  •  *LP 

WRITS'.  :3,02'MEQ,LS!j-:  I  ,M,IL>  ,AI  JINEO  , LPU<  I  ,-M,IL.>.<  , 


» 


4 


* 


•1 

1 


•i 


i 

■J 

» 


1 


r_n  r_n  rn 


LlJ  it' 


-  r  i-r  i  «  v  ^7 ■»-  ’  *- 7  «'  7  * — -^.  V” 


A I  JCNEQ  ,  LPX  ■,  I  ,  J 


.  UK  .  >: 

60  TO 


:  l  T  j 


L);  =  KARG'!  I  ,5,1  ’ 

WE:  !TE(  13,04)  NEQ ,  LPX  C I  ,  J  ,  5  ,  L  >  ,  A I J  <  NEQ  ,  IPX  C  I  .  J  ,  5  ,  L  * )  . 

NAME':  I!'  ,MS<J;  ,KGc5>  ,L 
IF  <L-NS.EQ.O>  GO  TO  61 

PRINT  Q^NEQ.LFXCI  ,J,5,L)  ,AI JCNEQ  ,  LPX’,  I  ,  J  ,  5  ,  L.)  >  , 
NAME'.  I  ■  ,MSC J)  ,  KGC5)  ,L 


con: 


!  1C 


•;c'*c  -  pc  cpcci  tcc 


<  Each  tyke  u f  uni i 
.  .  GNT  <  1  =  1  .  .  .  IYP  M=  1  ,2,3;  PERI  OD=l  .  .  .1-1) 


IFcI .GT.IYP.AND.I .LE.NUNIT3'  GO  TO  62 


DO  65  M=1 ,3 

T  Z  I  V7  -  1  ) 


LT  .  1  .AND  .  I  A5'.‘  I)  .E3.0  .AND  .M  .  EQ .  1 )  GO  TO  65 


I F ■: L.MT \ 2.-'  .EQ. 0  .AND .M.E3.1 )  60  TO  61 


.  EO  .  0  .AND  .M . E3 . 1 >  GO 


i  T  .  ’  •  H  'S  .  *  t  H!  J  U  •  i  '  •  i  i  *1  *  *  J  b  L-  i  J  0 

AI JCNEQ,LPU< I  ,;-1, 1'_;  '■  =  -NT ON <  I  ,5 ■  *L? 

W RITE •:  13,03 >NEQ  ,  L P U <  I  ,M ,  I L >  ,AI JCNEQ  , L P U <  I  ,M  ,  I  L) )  , 
UN AM EC  I >  ,MDCM)  ,  I L 
IF  CLANS.EQ.O)  GO  TO  63 

PRINT  03 ,NEQ , LPU Cl , M , I L > ,AI JCNEO  ,  LPUC I ,M. , I L) ) , 
UNAMECI) ,MDCM> , I L 
CCnT I NLE 


l  ie  .  c 


RESTRICTION  FOR  TRUCKING 
'Sc  1.0 

j  2  X e  a ,  l r  S l.  ■:  L  ''  ,A;  J  C N E u  ,  L D 6 L  C  L ) 
j  .  1 P  R I  NT  0  2  ,  N  E  J  ,  L  P  S  L  C  _ ,  A  i  J  C  N  Eu  .  L  P l.  c  L ) 

HIS  PERIOD 

.  F  3  2 , 5  ,  L  '  >  =  -1.0 

TE'.  16,02  1 N  E  0  i  c  P  u  ,  2  1 5 ,  L .)  ■  A I J  C  N  E  Q  ,  L  ?  £ ;  2 . 5  ,  i_ 

C  L.-Nc  .  E .  1 :  PRINT  02  ,NEQ  ,  lFSc  2,5,2.'  , 

AIJ' NE :,_  =  £■  2,5, L.' ' 

T-E  PREVIOUS  PERIOD 


E  .  1  •  A ,  u  1  N  E  'j  ,  L  -  3 c  c  ,  5  ,  L  - 1  .'  ;  —  1.0 
C . 1 1  GO  TO  66 

WRITE . 13,02) NEQ, LPSC 2, 5, L-l > ,AI JCNEQ , LPSC 2 , 5 , L-l 
'  L-NS.EQ.O  '•  GO  TO  66 

PRINT  0  2  ,NE0  ,  L°S ■-  2 , 5  .  L- 1  *  ,  AI  JCNEQ  ,  LPS'.  2 , 5  ,  L- 1  >  ;• 


1U  UJ  t  Li 


I'3: 


do  :«o  i=: , mum its 
for  each  mode 


IF (I .GT.IYP, 

.AND.  I . LE .NUN ITS 

.AND.M.NE. 2) 

GG 

I  -  C  LMT  ■.  1 

■  .LT.l .AMD. I ABC  I 

>  .EQ.O .AND.M, 

,  EQ 

I  F  •;  LMT  <  2 

:  .  EQ  .  0  .AND .M .EQ . 

1)  GO  TO  19£ 

I F  ■;  LMT  ■;  3 

;  . EQ . G .AND.M.E3. 

1)  GG  TO  192 

if-;  iab-;  I 

>  .EQ.! .AND.M.NE. 

! -  GO  TO  1 92 

FOP  ALL  THE  PERIODS 


DO  194  L=I,NP 

a:j*;me5 , uriM i  ,m,l> >»  -nci < i > 


j  T  t  «  i'  i  o 

,os; 

)NE3,L 

PUC I  ,M,L)  ,AI  J'INEQ  ,LPU< 

1 

i 

.'NAME  • 

‘  T  \ 

i  L 

if 

C  LANS , 

.  E:“! 

.0)  GO 

TO  194 

F  R I : 

•,j~r  fi  ~ 

,  N  E  • 

I.LP'JC 

I  ,M,L>  ,AI  JCNEQ ,LPU<  I  ,f- 

i 

1 

UNAME- 

: : ) 

.MDCM) 

>L 

LLi . .  i  r  4  L  E 
CONTINUE 

INPUT  'HE  RIGHT  HhND  SIDE  OF  THE  EQUATION 
P  rr  S  <  N  E  Q  ■  =  0.0 
lv  F I T  E \  13,0  S  >  N  E  j .  R  H  S  \  N  E  0 ) 

I  -  (  LANS ,  EQ  .  0  '>  GO  TO  !9o 
PRINT  OS ,NEQ , RHSCNEQ) 


.  1 GO  ' 


I ,M , L) )  , 
)  L  1 )  , 


M 


A 

•J 


•j 


to 


IFv3.lt  ,lL‘ :  I ,2'  .OR.  3.G7 
AIJ<NEQ,LPX(!  ,3,5,0'  ;=  -C 

WRITS- 13, 04)NE3,LPX< I ,3,5,L> ,AI J<NEQ , LPX< I ,3,5,1) 
NAMEv  I  1  ,MS<  3)  ,  KGv  3  /  ,L 
CLANS.EQ.Q;  GO  TO  13L 

I  NT  04,MEQ,LPx:i  ,3,5,L:’  ,AI  J-/NE3 ,  LPX<  I  ,3,5,L)>  , 
NATE'  I j  , T 3  v  3  1  ,  <3<  5>  ,L 
CONTINUE 


'  OR  EACH 


iT I  CM  UNIT  AT  THE  APOD 


DO  134  1  =  1  .NUNITS 


*C  THE  AFOD  <M=2>  BUT  TRUCKED  TO  THE  FRC7- 


I  -  v  N~ F  v  I ,  E Q  .  0  ■'  G 0  TO  134 


FROM  THE  APOD  TG  THE  FRONT=M 


■RE^L'NTFvi:  4l?; 


tv  F  GTE  13,03  TIE  3  ,LPJ<  I  ,  2 , 1 L ,  A I  JvNEG ,  LFLK  I  , . 

UNAMEv I  >  ,NC • 2)  ,  IL 
I”  (LANS.E3.0  •  GO  TO  136 
:  ~  IN'  C  3  , *  E  3  ,  LPLK  I  ,  2 , 1 L)  ,AIJ<NEQ  ,  LPU(  I  ,2, ID) 

■  ‘tC  •  M-  ,  -  ’  ! 


RESTRICTION  FOR  TRUCKING 


wr  .  ~  .  ,  J  _  . c  - 

I"  v _AN3.E3.D ■  C 

P  .  p«  .  Ij  ,  r  i  E  ‘J.  ,  L.^  'l 


.  _  ;  ,  A I J  v  NEQ ,  LD '3  _  (  L > 


<  ,AI  J'.NEa.LPSL’/Li 


C-*-*  INPUT  THE  R I UnT  HAND  SIDE  OF  THE  EQUATION 


l'/  RI'Ev  13,03  ME  3  ,RHS  <  N  E  Q  > 
I  r  ,_ANb  ,  t  j  •  !J  ■'  GJ  TO  1  30 
PR  IN-  03  ,NEG  ,  RHS<NE3  '■ 


/*>  EQUATIONS  FOP  UNIT  LINKAGE  CEILING 


PRINT  UNIT  LINKAGE  CEILING 


FvL.LT  .NF?<  I  >  .>  GO  TO  174 
DO  276  K=uL't  I  ,2)  ,LLK!  ,2) 

A! J< NE3 , IPX  < I , 3 , K , L > ) =  KARS < I , K , 2) 
tv R I T  E  ■: !  3 , 0  4 )  NE  3 ,  L PX  ( I  ,  3  ,  K ,  L  ,  A I J  <  M E  3 ,  L  ?X  ( I  ,  3  ,  K ,  L ) 
NAME- I) ,MS<  3) , KG<  K) ,L 
IF  < LANS . E3 . 0 )  GO  TO  176 

PRINT  0  4  ,  N  E  Q ,  L  PX  ( I  ,3,K,L>  ,AI  J<NEQ,LPX(  I  ,3,K,D)  , 
NAME',  I  >  ,HS<3> ,  KG<  K)  ,L 
CONTINUE 

IH  TYPE  GF  UNIT 
DO  173  I=l,NUNIT3+i 
J=3 

IF( I .GT. IYP.AND. J. ME. 2. AND. I .LE.NUNITS)  GO  TO  173 
IF< IAB< I ) .EG. 1 >  GO  TO  178 
A I J  < M E  3 , L  P U < I , J , L > ) =  -NT ON (1,4 > 

WRITE < 13,03>NEG,LPU< I ,J,L> ,AI J(NE3 , LPLK  I ,J,L>) , 
UNAME< I ) ,MD( J) , L 
IF  ( LANS  .  E'J  .  0 )  GO  Tu  17b 

PRIM**  02  ,NEQ  ,  LPLK  I  ,  J,L)  ,  A I J  ( NEQ ,  LPU  <  I  ,  J  ,  L  > )  , 

UNAME I  .•  ,MD( J>  ,L 

CONTINUE 

FHE  RIGHT  HAND  SIDE  OF  THE  EQUATION 

R H S ( N  E  Q ) -  0.0 

WRITE; 13, 03)NE3,RHS(NEQ) 

I F( LANS . EQ . 0 )  GO  TO  166 
PRINT  03  ,NES , RHS(NEG) 


i'JATI  ONS  FOR  THE  SHIPMENT  OF  SUPPLIES 
THE  FRONT  VIA  THE  AFOD 


PRINT  FRONT  SUPPLIES  -VIA  APOD-' 

PRIM-  - 

-g  R :  F  E  (  1  3  ,  * )  ’ - 

.-RITE''.  1  3,  FRONT  SUPPLIES  -VIA  APOD' 


DC  ISO  L=2 ,Nf 
NEQ=NE3M 


OP  E-UH  T  i'PE  Or  AIRCRAFT  r’YhI  lABLE 
DO  132  1  =  1,  MM AC 

IF(L.LT.NFP<  I ) GO  TO  1S2 


jP  THE  INTRA ;  HEATER  MISSIONS'!  J=3>  ,  WITH  SUPPLIES1' J=3;  . 
iEOK  TO  SEE  IF  BEYOND  THE  LIMITS  OF  EITHER  THE 


NE0=NE3+1 


C  +  +  FOR  EACH  TYPE  CF  AIRCRAFT 
C 

DO  170  1=1 ,NMAC 


C  +  +  CHECK  TO  SEE  IF  BEYOND  THE  LIMITS  OF  El. HER  THE  T'i'FE 

C  +  +  OF  MIS3CN  LU  ,!)  ,  TYPE  OF  CARGO  L<  I  ,2  ■  ,  OR  F? 

C 

IF\2.LT  .LL(  I  1 )  .OR.  3.GT.LLKI  ,l).>  GO  TO  170 

IF-;  K.LT.LL1'  I  ,2>  -OR.  K  .  GT .  LLK  I  ,  2  ■  >  GOTO  170 

I F •;  . L~  .NF?<  I  >  >  GO  TO  170 
Ai J<NE3,LPX<  I  , 3 , K , L )  >  =  -KARGU  ,K,1> 

WRITE! 13, 04>NEQ,LPX< I , 3 , K , L ) ,AI J(NEQ , LPX( I ,3,K,L) ) , 
1  NAME; I ) ,MS<3> , KG<  K) ,L 

IF  < LANS. E 9.0>  GO  TO  170 

PRINT  04,NE3,LPX< I ,3,K,L) ,AI J(NEQ , LPXU ,3,K,L>) , 

1  NAME ( I ) ,MS<3> , KG( K) ,L 

1  /  J  COi  i  i  INbc 


EACH  TYPE  OF  UNIT  SHIPPED  TO  THE  APOD,  J=2  FOR 
HE  APOD  OR  WALKING  TO  THE  FRONT,  J=3  FOR  THOSE 
HE  FRONT  BUT  FLrING  INTRATHEA75R  AIRLIFT 


THOSE 

UNITS 


REMAINING 

DEPLOYED 


DO  172  1=1 ,NUNITS+1 
J=2 


if*; 

:  i . gt  .  I 

YP .AND 

.j.; 

ME . 

2  .i 

AND 

.1  . LE .MUNI 

TS 

)  60 

TO 

IF*: 

:iab(I> 

.  eq  .  i  :> 

GO 

TO 

i  i 

71 

A I  v 

J (ME 3 , L 

PU'I  I  ,  J 

,L> 

)  = 

NT 

on  •: 

*  , K) 

I'J  R  ] 

ITE'IIS, 

03)NE3 

,LPU(  I 

,J 

,L> 

,AI J (NEQ , L 

,PU 

<  I  ,  J 

,L> 

uname  ■: 

i)  ,md>: 

J), 

L 

IF 

•I  LANS . 

EQ.O) 

GO 

TO 

17 

2 

P  P . 

I NT  03, 

NE9 , LP 

u  ■;  i 

T 

<  U  J 

L) 

,AI 

J<NE3,LPU< 

T 

*  i 

J ,  L  > 

'  « 

UNAME < 

I  )  ,MD( 

L 

C  +  +  INPUT  THE  RIGHT  HAND  SIDE  OF  THE  EQUATION 
C 

RHS(NE3)=  0.0 

WRITE( 13,03 ) NE5 , RHS <  NEQ ) 

I P ( LANS . EQ . 0  ■  GO  TO  168 
PRINT  03 ,NE3,RHS<NEQ> 


1  to  CONTINUE 

C 

C  +  +  FOR  FaSSENGERS 

c 

NE3=ME3+ : 

. . 

C  +  +  FOR  EACH  TYPE  OF  AIRCRAFT 
DO  174  1=1 ,NMAC 

C  +  +  CHECK  TO  SEE  IF  EEYCND  THE  LIMI~S  OF  EITHER  THc.  T 


D  -  7  2 


UNAME  \  I ,  ML1  (H )  ,L 
CCN’INUE 
CONTINUE 
RHS(NEQ>=NUNT < I ) 

WRITE1'.  1 3 , 0S)ME3 ,  RHS(NEQ) 
IF  ( LANS. EG. 0;  GO  TO  154 
PRINT  08 ,NEQ,RHS\NEQ> 


CONTINUE 

F  ’j  R  EA  C  H  A  l  J  E  UN  I T 
NE3=NE3+ 1 

DO  15?  I  =N  UN  IT  3,  NUN  I" 


FOR  EACH  MODE 
DO  1 30  M=1 ,3 

IF  ,  I .GT.IYP.AND.I .LE.NUNIT3.AND.M.NE.2)  GO  TO  160 
I F < LMT < 1 ) . IT . 1 .AND . I AB ( I > . EQ . 0 .AND .M . E3 . 1 )  GO  TO 
I F C LMT( 2) . E3 . 0 .AMD ,M . EQ . 1 >  GO  TO  160 
IF*;  LMT ( 3) . EQ . 0 .AND .M . EQ . 1 >  GO  TO  160 
FOR  EACH  PERIOD 

DO  162  L=1 ,NP 

A I  J  *;NE3 ,  LPLK  I  ,M,L)  >»1  .0 

WRITE*:  1 3 ,03)NE5,LPU<  I  ,M,L>  ,AI  J(NE3 , LPU(  I  , 

!  UNAME ■ I ) ,MD<M) ,L 

IF  *1  LANS  . EQ . 0 ;  30  TO  162 

PRINT  03  ,NEQ  ,LFIK  I  ,M,L)  ,A.I  J(NEQ  ,L?U<  I  ,M,L>)  , 

1  UNAME  C I ) , MD < M ) ,L 

CONTINUE 
CON- I MU E 
CONTINUE 

R H S  *.  N E Q  ■  =NUNT  ( N UN  ITS  .' 

WR I-E-  13, 0  3 ) NE  Q , RHS(NEO) 

I F  *: i_AN  S  .  E  0  .  G G  C  T  j  1  u  A 
PRINT  03  ,NE3 ,  RHS’INEOi* 


INEQUAL .  ■  f  FwR  i  HE  3 HI  rMEMT  CP  UNITS  FROM  THE  APOD  ;  0  THE  FROM 
C**  THIS  INSURE 3  THAT  WHAT  IS  SHIPPED  TO  THE  FRONT  DOES  MOT  EXCEED 
WHAT  I-  rt'-'-.  wAELs  Tj  Bt  brt;“'AbD  AT  THE  APOD. 


liH  PR  in-  - 

PR IN*  ♦, ■  UNI-  SHIPMENT  FROM  APOD  TO  FRONT' 

ft: n*  *,  - 


WRITE! 13,*  •  •  UNIT  SHI  PM  ENT  F R  CM  APOD  TO  FR ONT 
WRITE' 1 3 , *  - 


r UR  E.-CH  PERIOD 


DO  166  L=i,NP 


C+*  FOR  OUT.  OVER.  AND  BULK  CARGO 


o  o 


'I’ll’ 


15G  CONTINUE 

C**  IF  WAi_K  TO  THE  FRONT  !M=2.-  ,  CONSIDER  TIME  DISTANCE  F'EL 
**  GET  TO  THE  FRONT  FROM  THE  APOD 

M=2 

I F ( NT'v' ( I )  .  EQ .  0  )  GO  TO  151 

MY= I NT <  <  D I  ST  1 2 ) ) / R  EA  L  < NTV ( I ) *  L  P ) ) 

IF'IM.Y.GT.L)  GO  TO  151 
DO  153  IL=!,L-MY 

CGEF=NPAL*LP 

A I  J'INEO ,  LPLK  I  ,M ,  I L)  )  =  -CuEF 

WRITE! 1  3 , 03)NEQ ,  LPLK  I  ,M ,  I L)  ,AI  J<NE9  ,  LPU(  I  ,M  ,  1 L 
1  UNAME(I) ,MD(M) ,IL 

IF  ( LANS .  EQ . 0 )  GO  TO  153 

PRINT  03  ,NE3 ,  LPLK  I  ,M,IL)  ,AI  J'INEQ ,  LPU<  I  ,M,ID), 

1  UNAMECI) ,MD!M) ,IL 

153  CONTINUE 

r 

C**  INPUT  THE  RIGHT  HAND  SIDE  OF  THE  EQUATION 
C 

151  RHS(NEQ)=  NHA< 1 ) 

WRITEI 1 3 , 0S)NEQ , RHSINEQ) 

I F !  LANS .  EQ .  0 )  GO  TO  142 
PRINT  08 ,NEQ ,RHS!NEQ) 

C . 

142  CONTINUE 
C  —  6 

SET  UP  EQUATIONS  FOR  THE  ARMY  UNITS  **** 


)  ) 


C 


PRINT  *,■' - 

PRINT 

PRINT  ' - 

WRITE1. 13,*.'  ' 
WRITE'!  12,*) 
WRITE! 13,*) '• 


DEPLOYED  UNITS'' 


DEPLOYED  UNITS-' 


C 

r  *  + 


=0R  EACH  UNIT  EXCEPT  THE  ALOE  UNITS 

DO  154  I  =  :  ,NLNi'rS-l 
NEQ=NE3+ 1 

FOR  EACH  MODE 
DO  1 56  M= I  ,3 


:'?  .AND  .  I  .  LE  .NUN ITS  .AMD  .M  .ME  .2)  GO  TO  156 


Ic! IA5 


C+*  FDR  EACH  PERN 


1  T 

.AND 

.  IAB-1 1  > 

rn 

c» 

0. AND. M.EQ.l)  60  TO  15* 

EQ, 

,0 

.AND 

.M.EQ.l 

i  GO 

TO 

1 56 

EQ, 

,0 

.AND 

.M.EQ.l. 

i  GO 

TO 

156 

EQ , 

1 

.AND 

.M.NE . 1 

i  GO 

TO 

156 

p  L 

>  )  =  1 

.0 

DO  158  L= 1 ,NF 
A I J !  N  E  Q  ,  L  P  l 

WRITE1!  13,03)NEQ,LPU'I  I  ,M,L>  .A I  J-.NEQ  , LPLK  I  ,N,L) 
UNftME-I  I  i  ,MD!M)  ,  L 
IF  ( LANS . EQ . 0 '  GO  tq  153 


•j 


ruR  eALri  Mi  SSi  ON  t  0  Tnt  rRCNi  ,  DI  REw  •  <  J=i  t  .—•M  D  IN7RA 
DO  146  J=i ,3 , 2 

CHECK  70  SEE  IF  BEYOND  THE  LIMITS  CF 
THE  TYPE  OF  MISSION  L<I,1> 

I  F(  J  .  LT  .  LL(  I  ,  1 )  .OR.  J.GT.LLKI  ,D)  GOTO  146 
DO  143  K=LL'i  1,2)  ,LU<I  ,2) 

COEF=EAS(I  ,K>*MHEU} 

A I  J<NE3  ,  LPX ‘1 1  ,  J ,  K ,  L )  .)  =  COEF 
W RITE- 13,04 ) N E  3 , L  PX  < I , J , K , L ) , A I J  <  N  E  Q , L  PX < 
1  NAME<  I )  ,MS  <  J)  ,  KG';  K)  ,L 

IF  ( LANS . EQ . 0 )  GO  TO  14? 

PRINT  04.NEQ , LPX< I , J , K ,L> ,AI J(NEQ , L-Xl I , J 
1  NAME',  I )  ,MS<  J)  ,KG(K)  ,L 

CONSIDER  SUPPLY  CARGO  IF  BULK  CARGO  IS  CONSIDERED 

IFCK.EQ.3)  THEN 
AI J(NEQ , LPX( I . J , 5 , L) )=C3EF 
WRI7E<  1  3 , 04)NE3  ,  LPX  (I  ,  J,5,L)  ,AI  J'INEQ.L? 
1  NAME ( I j ,MS<J> ,KG(5) ,L 

I F( LANS . E3 . 0 )  GO  TO  143 
ELSE 

GO  TO  1  48 
END  1 F 

PRINT  04 ,NEQ , LPX< I ,J,5,L) , A I J (NEQ , LPX< 1 ,J,5 
1  NAME ( I  >  ,MS‘.  J)  ,KG<5)  ,L 

CONTINUE 
CONTINUE 
CONTINUE 

FOR  THE  ALCE  UNIT  AT  THE  FRONT 

7  _  ft  i  1 *  i  T  J.  1 
.»  —I  'iUi  'i  1  1  O  T  i 

FOR  EACH  MEANS  OF  GETTING  TO  THE  FRONT:  1-  DIRECT 
AND  3-  APOD  &  FLY  TO  THE  FRONT 

DO  150  M=1  ,3,2 

I F ( LMT \  1 ) . LT .  1 .AND .M . EQ . 1 )  GOTO  150 
DO  152  I L= 1 , L 

IF!  IL.E3.L)  THEN 
COEF=NPAL*LP*fl .5 


CGEF=NPAL*LP 
END  IF 

AI  J>:NEQ , LPU(  I  ,M,  ID  >=  -COEF 

W  R I T  E  •:  1 3 , 0  3  >  N  E  Q ,  L  P  U  (I  ,  M ,  I L )  ,  A I J  ( N  E  3 ,  L  P  U  < I  ,  M ,  I L  > 
UNAMEv  I .)  ,MD(M)  ,  I  L 
IF  ( LANS . EQ . 0  >  60  TO  152 

PRINT  03  ,NE3 , LPU C I ,M, I L) ,AI J(NEQ,LPU< I ,M,IL>) , 
UNAME'I  I )  ,MD(M)  ,  IL 


o  o  o  o  o  o 


ELS! 


60  TO  13! 


133 


1  34 
C 

C** 

C 


END  IF 

PRINT  04,NEQ,L?;«I  ,  J , 5 , 1_ ’>  ,AI  J<NE3fLPX<  I  ,J 
NAME'  I) ,MS< J) , KG!  5) ,L 
CONTINUE 
CONTINUE 
CONTINUE 


FOR  THE  ALCE  UNIT1! LAST  TERM  IN  THE  FILE)=N UNITS 
I =N UN ITS 


C 

C** 

C** 

c 


FOR  THE  APOD  M0DE=2 

FOR  ALL  PREVIOUS  AND  NEWLY  DEPLOYED  ALCE  UNITS 


140 


DO  140  I L= 1 ,L 

IF(IL.EQ.L)  THEN 
COEF=N PA L*L?-*0 .5 
ELSE 

coef=nfal*lp 

END  IF 

AI  J'NEQ.LPUd  ,2,IL))=  -COEF 
WRITE! 1 3 , 03)NEQ ,  LPUU , 2 , I L) ,AI J!NEQ , LPU!  I ,2,1 
UNAME ! I ) ,MD!2> , IL 
IP  ( LANS . EQ . 0 )  GO  TO  140 

PRINT  03,NEQ,LPU<: ,2, ID ,AIJ!NEQ,LPUU ,2, IL)) 
UNAME! I) ,MD<  2) ,IL 
CONTINUE 


INPUT  THE  RIGHT  HAND  SIDE  OF  THE  EQUATION 


RHS(NEQ)=  NHA  !  2 ) 

WRITE!  13,03  -NEQ , RHS !NEQ) 
I F < LANS  .  EQ . O  >  GO  TO  132 
P R I N T  OS  , NEQ, RHS! N E Q ; 


132  CONTINUE 

**  EQUATIONS  FOR  THE  MHt  LI MI i ATI  ON  AT  FRONT 
-5 

PRINT  *,■' - 

PRINT  MHE  LIMITATION-FRONT" 

PRINT  *D - 

WRITE'  13,-*=  - 

WRITE! 13, *>  '  MHE  LIMITaTI ON-FRCNT ' 

WR ITE! 1 3 , * )  - 

C**  FjR  EmCH  PERIOD 
DO  142  L=1,NP 
NEGNNEG  + 1 


C*+  FOR  EACH  TYPE  OF  AIRCRAFT  AVAILABLE 
DO  144  I=I,NMAC 

IF-L.LT.NFPU)>  GO  TO  14a 


CGEr=RE-iL  •;  1 00OO*N7ACC  I )  )/REAL<L?*NPK<  I  )  > 

AI J(NEQ , LPU(  I ,2,L) )  =  COEF 

WR:TE(:3,93>NEQ,LPU<!  , 2 , L )  ,AIJ(NE3,LPU(I  ,2,l: 
1  UNAME(I)  ,MD<2>  ,L 

IF- LANS.EQ.O)  GO  7G  130 

PRINT  03  ,NE3 ,  LP'J(  I  ,  2  ,  L)  ,  A I  J  ( NEQ  ,  LPU  (I  ,  2 ,  L> )  , 

1  UNAME-;  I )  f  M  D  ■;  2 )  ,L 

CONTINUE 
RH3<NEQ>=1 0000 
WRITE*;  1  3 , 03>NE9 ,  RHS(NEQ) 

IF  (LANS. EG. O  '  GC  TO  122 
PRINT  08 ,NE9 ,RHS<NEQ> 

CONTINUE 

EQUATIONS  FOR  THE  MHE  LIMITATION  AT  APOD 


PRINT  *,' - 

PRINT  *,-' 

PRINT  - 

WRITE-  13,  *}••—- 
WRITE-;  13,*)  ' 

WRITE! 13,*)' - 

FOR  EACH  PERIOD 
DC  132  L=1 ,NP 
MEC—NEQ* 1 


MHE  LIMITATION-APOD" 


MHE  LIMITATI ON-AF‘CD/ 


FOR  EACH  TYPE  OF  AIRCRAFT  AVAILABLE 
DO  134  1=1 ,NMAC 

I F  •;  L  .  LT  .NFP<  I ) )  GO  TO  134 

FOR  EACH  MISSION  INTO  THE  AP0D(J=2,3) 

DO  13c-  J=2,3 

CHECK  TO  SEE  IF  BEYOND  THE  LIMITS  OF 
THE  TYPE  OF  MISSION  L(I,1> 

IF,  J.LT.LLd  ,1)  .OR.  J.GT.LLKI  ,  1)>  GOTO  136 
DO  133  K=LL ( I ,2) ,LU(I ,2) 

COEF=EAS( I , K) *MHE( I ) 

Al J (NEQ , LPX( I , J , K , L  > ) =  COEF 

W  R I T  E  ( 1 3 , 0  4 )  N  E  Q  ,  L  PX  ( I  ,  J  ,  K ,  L )  ,  A I J  ( N  E  Q  ,  L  ?)<  ( I  ,  J ,  K  ,  L )  >  , 

1  NAME( I ) ,M3( J) ,KG(K) ,L 

1-  ( LANS . EQ . 0 )  GO  TO  13P 

PRINT  04 , NEQ , LPX< I ,J,K,L) ,AI J(NEQ , LPX( I , J , K , L) ) , 

1  NAME- I > ,MS( J) , K3( K) ,L 

CONSIDER  SUPPLY  CARGO  IF  BULK  CARGO  IS  CONSIDERED 

if*;k.eq.3j  them 

AI J (NEQ , LPX (I , J , 5 , L ) >=COEF 

WRITE-:  13, 04)NEQ,LPX(I  ,J,5,L)  ,AI  J(NEQ  ,  LPX(  I  ,J,5,L)) 
1  NAME-:  I  >  ,MS(  J)  , KG(  5)  , L 

I F ( LANS . EQ , 0 )  GO  TO  138 


o  o 


R  M  b  I  'iE  U  )  —  \  1  J  0  U  Lr  X  ' 

WRITE-;  1 3 ,  03)NE9 ,  RHS(NEQ) 
IF  < LANS . EQ . 0  >  GO  TO  112 
PRINT  03  ,NE3 , RHS(NEQ) 


*•  L  ?  >  /  R  E.- 


CONTINUE 

CONTINUE 

SET  UP  EQUATIONS  FOR  THE  AIRPORT  LIMITATIONS 


PRINT  */ - 

PRINT 

PRINT  *,' - 

WRITE’ 13,*)  — 
WRITE*:  13,*)' 
WRITE*:  1 3,*)'  — 
FOR  EACH  PERIOD 
DO  122  1=1 ,NP 
NEQ=NEQ+ 1 


AIRPORT  LIMITATIONS’ 


AIRPORT  LIMITATIONS' 


EACH  MAC  TYPE  AIRCRAFT 

DO  124  1=1 ,NMAC 

IF  (L.LT.NFP(I))  GO  TO  124 

EACH  MISSION  TRANSITING  THE  APOD  <J=2,3) 

DO  126  J=2 ,3 

IF<J.LT.LL<I ,l).OR.J.GT.LU<I,l))  GO  TO  126 
CGEF= 1 0  0  0  0  *6T ( I >/REAL<NPRK< I >  *24*LP ) 

DO  12S  K=LL< 1,2), LU< I ,2) 

AI  J'INEQ , LPX<  I  ,  J  ,K , L)  )=COEF 

WRITE*:  1 3 , 04)NEQ  .  LPX(  I  .  J .  K  ,  L)  ,AI  J<NEQ,LPX<  I  ,J,K,L) )•  , 

name*;:)  ,ms*:j)  ,kg*:k>  ,l 

IF  ( LANS , EQ . 0 )  GO  TO  12? 

PRINT  04 ,NE3  ,LPX*I  I  ,  J  ,K  ,L>  ,AI  JCNE3  , LPX*  1  ,  J  ,K ,  L)  >  , 

name*:  i )  ,ms*:  J)  ,kg*:k>  ,l 
Ic*:k.E3.3)  then 
a  I J  •;  NEQ.L  ?”( <  I  ,  J ,  5 ,  L  > ) = C  0  E  F 

-vRITE*,  :3,04.»NE2,LPX<I  ,J,5,L)  ,AI  J<NEQ,LPX<  I  ,J,5,L) 
NAME*.  I  j  ,MS<J)  ,KS*;5)  ,L 
IF! LANS . EQ . 0 )  GO  TO  123 
Ei-SE 


PRINT  04,NEQ,L?X*I  I  ,J,5,L)  ,AI  J'INEQ , LPX*;  I  ,J,5,L>)  , 


CON .  Ii  ILE 


wAC  "  F.  z  -  ^  f-z.  AL  AT  THE  APOD 

do  iso  :  =  :  .nlnits 

Ic  :-rnC*  I  i  .  EQ .  0  -  GO  TO  130 


(_j  LJ 


DO  116  K=LL I  ,  2  >  ,  L 1 J <  I  ,  2 ) 

A  I  J  '.  N  E  Q  ,  L  r  %  \  x  ,  J  ,  K  , *  i=L0ki~ 

WRITEU3,04)NEQ,LPX<:  ,A!  J(NEa,LPX<  I  ,J,K, 

1  NAME':  I )  , M S <  J >  , KG(K)  ,L 

IF  < LANS . EQ . 0 >  60  TO  11? 

PRINT  04  ,NE3  ,LP>((  I  ,  J,K,L>  ,AI J(NEQ ,LPX< I  ,  J.K,D> 
1  NAME! I >  ,MS< J)  ,K5<K),L 

CONSIDER  SUPPLY  CARGO  IF  BULK  CARGO  IS  CONSIDERED 

I F  ( K .  E  3 . 3 )  THEN 

A I  J'INEQ ,  LPX<  I  ,  J ,  5 ,  L)  )=C0EF 

wR:TE(!3,04)NEQ,LPXU  ,  J,5,L)  ,AI  J< NEQ , LPX<  I  ,  J ,  5 ,  L )  > 
1  NAME  < I ) ,MS ( J ) f  KG  <  5 ) , L 

I F ( LANS . EQ . 0 )  60  TO  116 
ELSE 

60  TO  116 
END  IF 

PRINT  04  ,NEQ , LPX< I , J , 5 , L) ,AI J(NEQ , LPX< I , J , 5 . L) ) , 

1  NAME'.  I)  ,MS(J)  , K6< 5)  ,L 

CONS INUE 
C  UNT I N U  E 


FOR  THE  INTRATHEATER  MISSIONS 

CHECK  FOR  MS  OUT  OF  LIMITS  AND  AC  THAT  SPECIALIZE  IN  INTRA'I 


IF'ILLn  ,1)  .67.3  .  OR .  LU<  I  ,  1 )  .  LT .  3)  GOTO  113 
I F( LL( I ,1 )  .NE.3)  COEF=<1000*DIST<2))/<DIST<1)*UTE<I ,3 
3 F < L L •:  I  ,  1  >  . E3.3)  COEF=<  1  OOO/UTE'I  I  , 3) ) 

DO  120  K=LLU  ,2)  ,LU(I  ,2) 

A I J  (NEQ  ,  LPX  (I  ,  3  ,  K ,  L )  )=COE.F 

WRITE:  13, 04)NEQ,LPX(I  ,3,K,L)  ,AI  J'INEQ  ,LPX<  I  ,3  ,K , 
1  NAME'.  I)  ,MS(  3)  ,  KG< K)  ,L 

IF  ( LANS . E3 . 0 >  GO  TO  121 

PRINT  0 4  ,NEQ  ,  LPX < I , 3 , K , L ) ,AI J(NE3 , LPX( I , 3 , K , L) ) 
1  NAME-: I)  ,MS( 3)  ,K5(K)  ,L 

CONSIDER  SUPPLY  CARGO  IF  BULK  CARGO  IS  CONSIDERED 

IF ( K .EQ . 3)  THEM 
A I J (NEQ , LPX ( I , 3 , 5 , L ) >=COEF 

WRITEi  1  3 , 04)NE3 ,  LPX(  I  ,3,5,0  ,  A!  J'INEQ,  LPX(  I  ,3, 
1  NAME-:  I  >  ,MS( 3)  ,KG(5:>  ,L 

IF(LAMS.EQ.O>  GO  TO  120 
ELSE 

GO  TO  120 
END  IF 

PRINT  04 , NEQ  ,  LPX(  I  ,3,5.L>  ,  A3  J(NE3 ,  L?X(  I  ,3,5,0)  , 

1  NAME1: 1  >  ,MS(3  <  ,  KG(  5  )  ,L 

CONTINUE 
CONTINUE 


INSERT  THE  RHS  OF  THE  CONSTRAINT 


THIS  BUILDS  THE  FOLLOWING  INEQUALITY  CONSTRAINTS  INTO  THE  AIJ  MATRIX 

2.  AIRCRAFT  UTE  RATE 

3.  AIRPORT  LIMITATIONS 


MHE  LIMITATIONS 


THE  APOD 


MHE  LIMITATIONS  AT  THE  FRONT 
POSSIBLE  NUMBER  OF  DEPLOYED  UNITS 

INTRATHEATER  SHIPMENT  OF  UNITS  FROM  THE  APOD  TO  THE  FRONT 
INTRATHEATER  SHIPMENT  OF  SUFPLIES  FROM  THE  APOD  TO  THE  FRONT 
UNIT  LINKAGE  CEILING 
UNIT  LINKAGE  FLOGR 


CHARACTER  NAM EC  10) *6, UNAM ECU ) *1 4 , GNAM EC 3) *14 
CHARACTER  M3C  4)  *5 ,  KG'S  5)  *4  ,MD  <s  3.)  *5 

COMMCN/ACF/NMAC ,NAC<  1 G )  .AVAIL'S  10)  .UTEC10 ,4)  , KARGC  10,5,2)  ,KTSC  10)  , 

C  GTC10) , MHE CIO) ,NFP<10) .NPRKCIO) 

C0MM0M/APD/DISTC2) , T I NT  ER  C 1 0 ) ,TINTRA< 10) ,EAS<10,4) ,CPI<4) , 

C  NHAC2) ,NPAL , RC , GLSC ? ,3) 

CCMMCN/ARM/N  UNITS  ,NUNT  CIO)  ,NTONC  1 1  ,5)  .NFF'CIO)  , NAT  CIO)  ,NFTC10)  , 

C:  NT  AC'S  1 0  >  ,NPKC  30)  ,NTP<  1 1  >  ,NTVC  1  i )  ,  I  ABC  10)  ,NCI<  10)  ,IYP,NHQC2) 

C OHM CN/7A  B,  "N  P ,LP, IP.NCR ,NEQ ,NPRIT ,LL< 10 ,2) ,LU< 10 ,2 ) ,L?X< 10 ,4 ,5 ,4) , 
0  LRUC  10,3,4)  ,  A I J  'S 1 50 , 300 )  ,RHS<150)  ,  LPS-S  3,5,4)  ,  LPSLC4)  ,LPRC10)  , 

C  NT'S  150)  , LMT C 3)  ,NCC  10)  ,NWGT<150)  ,NDV<150>  , N I D 
COMM ON/ C HR/NAME , UNAME , GNAME ,MS , KG ,MD 

CHECK  TO  SEE  IF  ECHO  DESIRED 

P  R I  NT  #  ,  •'  E  C  H  0  ON  THE  #1  PRIORITY  C  ON  ST  RA I  NT  S  ?  C 1  =Y/  0=N )  .  •' 

READ  « ,  LANS 
LANS=0 

PRINT  *,' - ■' 

PRINT  *'  INEQUALITY  CONSTRAINTS  C  <=  3  •' 


HE  AIRCRAFT  UTE  RATE 


PRINT 


A .  n  L  PA  F 


OR 

each  type  of  ai 

PC RAFT 

DO 

110  1  =  1  ,NMAC 

OF 

E-C.-t  PERIOD 

DO  1 1  2  L=f j F P ■:  I  • 

Tip 

NEQ=ME  S3-1 1 

OR 

THE  INtERTHEATE 

R  MISSIONS 

DO  114  J=Li- C 

1,1', LUC  I  , 

IF  CJ.EO. 

S 1  GO  TO  1 

C  UN  Si  J  b  K  b  U  P  r* !_  i  L  A  rc  b  o  i  r  d  U  L  k  u-H  rt  sj-  0  I  b  U  u 
1FCK.E3.3)  THEN 

A I J  CNEQ ,  LPX  ■!  I  ,  J ,  5 ,  L > )=KARS( 1,5,1 ) 

WRITS'! 13 ,04>NEQ,LPX< I , J ,5 ,L> ,AIJ<NEQ,LP X ■!  I , J , 5 , L) ) 
1  NAME1'  I  >  ,MS',  J.)  ,  K6<  5)  ,L 

IF (LANS. E3 .0 >  GO  TO  S5 

ELSE 

GO  TO  85 
END  I F 

r'  K  i  N  i  04  ,NEG  ,  -i-’X1, 1  ,  J  ,  D  j  L )  ,  A I  'j N  EQ ,  L  Px  \  i  ,  u  ,  5  ,  L ) .'  < 

1  NAME (I > ,MS< J) ,KG<5>  ,L 

CONTINUE 
CONTINUE 
CONTINUE 


"HE  EXCESS  FOR  THIS  PERIOD 


AI J(NEQ,LPR(L))=  -1 .0 

WRITE '!  1 3 , 02>NE3  , LPR C  L> ,AI J<NEQ , LPR( L> ) 

IF  ( LANS . EQ . 0 )  GO  TO  84 

PRINT  02,NEu,LPR(L) , A I J(NEQ , LPR(L) > 


C**  THE  EXCESS  FROM  THE  PREVIOUS  PERIOD 
C 


34 

IF'.L.NE.l)  AIJc.NEQ , 

LFR< L- 

IF(L.EQ.l)  GO  TO  So 
WRITE1!  1 3 ,02)NEQ  ,LPR 

<  L-l )  ,t 

IF  ( LANS . EQ . 0 )  GC  TO  So 

PRINT  0  2  ,NE3 , LPR( L- 

1 )  j  A  i  o 

0** 

INPUT  THE  RIGHT  HAND  SI 

DE  OF 

C 

K  £ 

RHSwNEG  )=  RC*L? 
WRITE'!  1 3 , 08)nEQ  ,  RHS 

<NEQ) 

IF1! LANS . EQ  . 0 >  GO  TO 

SO 

r 

PRINT  OS ,NEG , RHSCME 

Q ) 

SO 

r 

CONTINUE 

NCR=NEQ 

WRITE! 13,^ )  ' N  C  R= ' , N C R 

L-r 

C>A 

FORMAT  STATEMENTS 

0  2 

F  0  RMAT '!  •'  A I  J  (  '  ,214,')  =  -' 

.  F 1 4 . 5 

0  3 

F  0  RMAT !  '  A I  J  \  '  ,214,  •' )  — 

j  F! A .  5 

0  A 

F ORMAT ( 'AI J  .  '  ,214, '  )  — 

•F14.5 

0  8 

FORMAT  •!  ' RHS1! '  ,14,0  =  ' 

, FI  4 . 5 

END 


CONTINUE 


THE  51  RE. 


RICH  ON  FOR  TRUCKING 


a: j<neq,lpslcl>>=  -1.0 

WRITE! 1 3 , Q2)NEQ , LPSL! L) ,AI J!NEu 

I F! LANS . E3 . 1 )  PRINT  02,NEQ,LPSL 


LP3L<  L> ) 

D  ,ai  j<neq,lpsl:d  > 


0**  THE  EXCESS  FOR  THIS  PERIOD 


A I JvNEQ ,  LPS! 2 , 5 , L) >=  -1 .0 

WRITE! i3,02)NEQ,LPS!3,5 
IF  ! LANS . EQ . 0 >  GO  TO  74 
PRINT  02 ,NE3 , LP3! 3 , 5 , L) 

c 

0**  THE  EXCESS  FROM  THE  PREVIOUS  PERIOD 


,AI J!NEG , LPS!  3 , 5 , L  ' ) 
J!NEO , LPS! 3 , 5 , L) ) 


r 


IF(L.NE.l)  AI J!NEQ , LPS! 3 , 5 , L-l ) )=  1.0 
I F ! L . E3 . 1 >  GO  TO  76 

WRITE! 1 3 , 02)NEQ , LPS! 3 ,5 , L-l ) ,AI J!NEQ , LPS! 3 , 5 , L-l > > 
IF  ! LANS . EQ  .  0  >  GO  TO  76 
PRINT  02 ,NEQ , LPS! 3 , 5 , L-i ) 

INPUT  THE  RIGHT  HAND  SIDE  OF  THE  EQUAT 


,AI J!NEQ , LPS! 3 , 3 , L  —  1  ) 
I  ON 


RHS!NEQ)=  0.0 
WRITE! 13, 08)NEQ,RHS ! N E  Q ) 
I F !  LANS  .  EQ  .  0 )  GO  Tu  6? 
PRINT  08 ,NEG , RH5!NEQ) 


CONTINUE 

EOLATIONS  FOR  UNIT  ABT LITITIES 

PRINT  */ - 

PRINT*/  RIGGER  CONSTRAIN' ' 

PRINT  */ - 

WRITE! 13,*)  - 

W  R I  i  c  \  1  S  ,  *  >  RIGGER  C  ON  ST  R  A I  NT ' 

WRITE1.  IS,*.-'  - 

FOR  EACH  PERIOD 
DC  30  L=1,NP 
NEO-NEO+ 1 


DC  32  1=1 ,NMAC 

DO  S3  J=LL! 1,1), LU! 1,1) 

IF!J.NE.4)  GO  TO  33 

DO  35  K=LL!  I  ,2)  ,LLI!  I  ,2) 

I F< K . EG .4)  GO  TO  85 

IF!L.LT.NFP<I > >  GO  TO  35 

AI J!NEQ , LPX! I , J , K , L) )=  KARG! I , K  ,  1 ) 

WRITE! 1 3 , 04 )NE3 , LPX! I ,J,K,L) , A I J!NEQ  ,  LPX! I  ,J,K,L>)  , 
NAME! I ) ,MS! J) , KG!K)  ,L 
IF  ! LANS  . EQ  . 0 )  GO  TO  87 

PRINT  04 ,NE3 , LPX! I ,J,K,L> ,AI J!NEQ , LPX! I ,J,k,L>) , 


( 


1 


F'jR  A1 _ THE  PERIODS 


C0EF=1 


AI J-INE-3 , LPLK  I ,M,L) )=  COEF 
WRITE-:  13, 03>NEQ,LPU< I ,M,L) ,AI J(NE3,LPU< I ,M 
UNAME  <  I )  ,MD-:M)  ,L 
IF  (LAMS.EQ.O)  GO  TO  202 
PRINT  Q3,NEQ,LPU< I ,M,L> , A I J  <  N  E  3 , L  P  U  < I ,M,L> 
[  UNhME- I) ,MD(M) ,L 

CONTINUE 
CONTINUE 
CONTINUE 
CONTINUE 


INPUT  THE  RIGHT  HAND  SIDE  OF  THE  EQUATI ! 

RHS<NEQ}=  2.0 
WRITE1!  1 3 ,08)NEQ ,RHS(NEGD 
I F  -I  LANS .  E3 . 0 )  GO  TO  20  4 
PRINT  OS  ,NE'I- .  RHS-INE3) 

CONTINUE 


FORMAT  STATEMEN 


FORMAT  -I  '  A I J  -I  •'  ,214,')  =  -'  ,F14.5> 

FORMAT-;  ■'  A I J<  •'  ,214, )  =  •' ,  Fi  4 . 5 , 5X  ,A1 4 ,2X  ,A5 , 1 3) 
FORMAT  ( ■'  A I  J-;  •'  ,214, '  )=•'  ,  F 1 4 . 5 , 5)<  ,A6 , 2X ,  A  5 , 2X  ,  A  4 , 1 3 ) 
FORMAT  ( RHS  -I ;  ,14,')=  ,  F 1 4 . 5 ,/ , ' - - - 


L4NS=0 
RE  ‘URN 
END 


susKUlr  i  .Nc  so.-; .  i  - 

THIS  BUILDS  THE  CONSTRAINTS  FOR  THE  NUMBER  OF  POSSIBLE  AIRCRAFT 
SORTIES  POSSIBLE. 


CHAR  ACT  hR  NAME  -:  1 0  .<  *6  ,  UNAME  -1 1 1  >  *  1 4 ,  GNAME  (3)^14,  FNAME-*e 
CHARACTER  MS<4> *5 , KG  1 5) *4 ,MD<3) *5 

COMMON/ ACF/NMAC.NAC-:  10.)  .AVAILUO)  ,UTE<10,4)  , KARG-:  10,5,2)  , KTS-1 1 0 
C  GT(10)  ,MHE-:  10)  ,NFP-.  1 0 ,NPRK<10> 

COMMON..' AP  D/D  I  S~  <  2 .-  , T  INTER -:iG>  ,TINTRA(  10)  ,EAS\13,4)  ,  CP  I  >14)  , 

C  NHA-1 2)  ,NPAL  ,  RC  ,  GLS<  ?  ,3) 

C  OMM  ON/TA  B/N  P ,  L  ?  ,  I P ,  N  C  R  ,  N  E  Q ,  N  F  R I T  ,  L  L  <  1 0 , 2  >  ,  L  U  <  1 0 , 2  >  ,  L  PX  <10,4,5, 
C  LPU-:  10 ,3,4)  ,AI  J<  150,300)  ,RHS<  150)  , LPS< 3,5,4)  ,LPSL<4)  ,LPR<10> 
C  NT <  150)  , LMT < 3 >  ,NC<10)  ,NWGT<150)  ,ND'3<  1 50 >  , N I D 

C OMM ON/ C HR/M AM E , UNAME , GNAME ,MS , KG ,MD 


**  SET  UP  E3UA  i  i  ONS  F-JR  THE  A:  xCRAF  ,  6L.R~I  E3 


NC(2)=G 

P  R I  NT  *  ,  ' - 

PRINT  *,■' 

PRINT  *  ,  •' - 

WRITE  1 1 3  ,  * )  ■'  ■ 
WRITE (13,* )  * 
WRITE1!  1 3 ,  * )  ■’  • 


AIRCRAFT  SORTIES' 


AIRCRAFT  SORTIES 


FOR  EACH  TYPE  OF  AIRCRAF1 

DO  100  1=1 ,NMAC 

FOR  EACH  PERIOD 

DO  102  L=NFP< I ) ,NP 
NE3=MEQ+ 1 
NCI 2)=NC(2)+1 


DO  104  J=LL< 1,1) , LIK  I , 1 ) 

FOR  THE  INTER" HEATER  MISSIONS 

IF  (J.NE.3)  THEN 
COEF="INTER(  I ) 

FOR  THE  INTRATHEATER  MISSIONS 

ElSE  IFCJ.EQ.3)  THEN 
COEF=TINTRA< I ) 

DO  106  K=LL< I ,2) ,L!J< I ,2) 

A I J < N EQ,L PX < I , J,K, L  > > = C  0  E  F 

WRITE! 13, 04)NEQ,LPX< I ,J,K,L) ,AI J<NEQ ,LPX< I , J,K, 
1  NAME'!  I  >  ,MS!J>  ,K3(K)  ,L 

IF  (LANS.E-3.0)  GO  TO  107 

PRINT  04  ,NEQ ,LPX<  I  ,J,K,L)  ,AI  J<NEQ  ,  LPX'I  I  ,J,K,L)) 
1  NAME  (  I  > , MS-!  J )  ,  KG !  K >  ,  L 

CONSIDER  THE  SUPPLY  CARGO  IF  BULK  IS  CONSIDERED 

I F! K . EQ .3)  THEN 

A I J  (ME 3 ,  LPX'I  I  ,  J  ,5 ,  L)  )  =  COEF 

UR  I TE  ( 1 3 , 0  4  >NEQ ,  LPX(  I  ,  J  ,  5 ,  L )  ,  A I J  (NEC) ,  LPX<  I  ,  J  ,  5 ,  L  > ) 
1  NAME! I ) ,MS( J) , KG(5> , L 

I F ( LANS . EQ . 0 )  GO  TO  106 
ELSE 

Gu  7  U  106 
END  IF 

PRINT  04 ,NEQ , LPX< I ,J,5,L) ,AI J(NEQ , LPX< I , J , 5 , L ) ) , 

1  NAME! I )  ,MS( J) , KG(5) ,L 

CONTINUE 
CONTINUE 
INPUT  THE  RHS 


o  o  n  o  o 


RHS'lNEQ.'-NACl  I }  *AVAI  L(  I  .>  *Lr 
WRITE-:  1 3 , 08)NE3 ,  RHSCME3 ) 

IF  ■: LANS . E3 . 0 )  GO  TO  102 
PRINT  03  ,ME3 , RHS(NEQ) 


102  CONTINUE 

100  CONTINUE 
C 

C*  +  FORMAT  STATEMENTS 


0  4  FORMAT  <  '  Al  J<  '  ,  2 1 4  , '  )  = '  ,  F 1 4 . 5 , 3)< , A6 , 2X ,  A5 , 2X , A4 , 1 3) 
OS  FORMAT  {  '  RHS1!  ",  1 4 ,'}=’, FI  4 . 5  ,  •' - 


RETURN 

END 

♦•4  3 

SUBROUTINE  MGGAL 


■4'4'4-:4'i4-4'4“4**r-4'f 


*********** 


MAKES  THE  GUALS  DESIRES)  BY  THE  USER 

CHARACTER  NAME  < 1 0 ) *6 , UNAME •  1 1 >  *1 4 , GNAME < 3) * 1 6  ,  FNAME*6 
CHARACTER  MS< 4) *5 , K31 5) *4 ,MD< 3 . *5 

COMMCN/ACF.  NMAC  ,NAC(  1 0 :  ,  AVAIL1'.  IQ ;  ,UTE<10,4> ,  KARG<  10,5,2)  ,KTS<10)  , 

C  GT<  1 0 )  ,MHE<  1 0 )  ,NFP(  1 0  ;  ,NPRK(  1 0  > 

CDMMCN/APD/D I  ST  <  2 )  ,T  INTER-:  1 0 >  ,TINTRA<10>  ,EAS<10,4>  ,  CPI  •;  4)  , 

C  NHA  <  2 ) ,NPAl,RC,6LS<?,3> 

COMMON/ A RM/NUN ITS, NUNT (10) ,NTON< 1 1 ,5) ,NFP<10)  ,NAT< 10) ,NFT<10) , 

C  NTAC(  1  0 )  ,NPK<  1 0 )  ,NTP(  1 1 )  ,NTV(  11),  IAB(  1  0  >  ,NCI<  10),  IYP  ,NHQ<2> 

C GMM GN/T A 8/N P  , L P , I P ,NCR ,NEQ ,NPRIT , LLO 10,2), ILK  10,2), LPX< 10,4,5,4), 
C  LPU' 10,3,4; ,AI J< 1 50 ,300> ,RHS<15C) , LPS< 3 , 5 , 4) , LPSL< 4) , LPR< 1 0 ) , 

C  NT'.  150;  , LMT ( 2 )  ,NC'  10)  ,NWGT<150)  ,NDV<150>  ,NID 
COMMON  '  CHE/NAME , UNAME , GNAME , MS , KG ,MD 


PR  IN  i  THE  FOLLOWING  DATA  Is  NEEDED  TG  ESTABLISH  THE  GOALS 

PRINT  #,•' - 

PRINT  * 


PRINT 

PRINT 

* 

"  I 

* 

'  1  . 

PRIORITY  NUMBER 

PRINT 

*. 

•'  2 . 

T  ( Ft  CF  GOAL,  FR 

PRINT 

+ 

"  J 

A,  FRONT  LINE 

PRINT 

PRINT 

4 
’  J 

4 

J 

B,  ANTI-TANK 

C.  FIREPOWER-' 

PRINT 

PRINT 

♦ 

J 

* 

D.  DEPLOYMENT 

PRINT 

PRINT 

*, 

* 

■'  'j 

u  ■ 

SPECIFIED  AMOUNT 

PRINT 

PRINT 

*» 

* 

'4. 

PERIOD  CCMPLETI 01 

PRINT 

4- 

1 

■'  T  C 

i  ' 

YOU  DQ  NOT  HAVE  A 

COR  CONTINUE,-' 


PRINT  *  , "  0  u  YOU  WAN 
READ  *,NRE5 
IFINRES.GT. 1 . OR. MRE3.LT. 0)  THEM 

PRINT  * ,  'NOT  A  VALID  REPLY,  PLEASE  ENTER  •  1=Y/0=N>  . 

GO  TO  10 
END  IF 

I F(NRE3 . EQ . 0 )  STOP 

INPUT  THE  GOAL  NAMES 

GNAME(1}=' FRONT  LINE  TRACE' 

GN AM  E  <  2  >  =  '  ANT  I  -TAN  K  P  OW  E  R  •' 

GNAM  E\ 3)  =  ' FI  RE?  OW  ER' 

START  THE  INPUT  PROCESS 

1  =  1 

PRINT  5 
1  =  1  +  1 

PRINT  SELECT  THE  GOAL  TYPE  FOR  PRIORITY  '  ,  I 
K=  I Y  P  +  3 
DO  13  J=1,X 

IF'IJ.LE.3)  PRINT  ? ,  J  ,  GNAME(  J) 

IF< J.97.3)  P R I NT  ? , J , UNAM E < J - 3 ) 

CONTINUE 

PRINT  IF  FINISHED  TYPE  O'' 

REaD  *  ,  G  L  S 1 1 , 1 ) 

IFIGLSv  I  ,  1 >  .EQ.O)  GO  TO  20 
I F  <  GLSa  ,  1  >  .  GT .  K .  OR .  GLS  <  I  ,  1 )  .  LT .  1 )  THEM 

PRINT  * , 'NOT  A  VALID  REPLY,  PLEASE  RE-ENTER . ' 

GO  TO  1? 

END  IF 
NC<  I  : 

NPRIT=I 

PRINT  *, 'ENTER  THE  DESIRED  OBJECTIVE  OF  THE  PRIORITY. ' 

READ  * ,  GLS *1 1,2) 

PRINT  +, 'ENTER  THE  PERIOD  COMPLETION  DESIRED.-' 

READ  *  ,  GLS< 1,3) 

CHECK  TO  SEE  IF  THERE  IS  MEMORY  FOR  MORE  GOALS 

IF (I.  EG. 8)  PRINT  «,'***  YOU  HAVE  MEMORY  FOR  ONLY  ONE  MORE  GCAL 
I  F I  .EG.?;  THEN 

PRINT  * ,  -'YOU  ARE  OUT  OF  MEMORY  FOR  GOALS.-' 

GO  TO  20 
END  IF 
GO  TO  12 

ASK  IF  THE  FILE  IS  TO  BE  VIEWED 

PRINT  * , ' DO  YOU  WANT  TO  SEE  THE  LIST  OF  GOALS?  <1=Y/0=N)' 

READ  *, IVU 

I F  •,  IVU  .  GT  .  1  .  OR  .  IVU  .  LT  .  0  )  THEN 

PRINT  * ,  'NOT  A  VALID  REPLY,  PLEASE  ENTER  <  i=y/0=N>  . •' 

GO  TO  21 
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C*-  PRINT  OUT  THE  FILE  IF  IUU  =  1 
C 

I F  < I VU . EQ . 1 )  THEN 
DO  24  J=2,NFRIT 

I F *;  GLS(  J  ,  I )  .  GT  .3)  THEM 
K=INT ( GLS<  J , 1 )-3) 

L=INT ( 6LS(  J ,3) ) 

PRINT  25 , J , GLS( J , 2) , UNAME( K)  ,L 
GO  TO  24 
ELSE 

K=  I  NT  ( U  L  S  ‘i  J  j ! ) ) 

L=INT':GLS<J,3)) 

PRINT  25 , J , GLS< J , 2) , GNAME ( K ) ,L 
END  IF 

24  CONTINUE 
END  IF 

C 

C**  SET  UP  THE  NUMBER  OF  CONSTRAINTS  FOR  EACH  GOAL  AND  THE  NUMBER 
C**  OF  GOALS 
C 

DO  40  1  =  1  ,NG 
NC( I >=1 
40  CONTINUE 

C 

C*-*  FORMAT  STATEMENTS 
C 

2  FORMAT  I Ac) 

5  F  0  RMAT ( /////////////////////// > 

?  FORMAT -I'  —  •'  ,I2,2X,A16> 

25  FORMAT  <  'GOAL  #-',12/  IS  ,F5.1,'  OF  '  ,Ai  6,'  BY  PERIOD7 , 12) 

C 

EET  URN 
END 


c 


SUBROUTINE  GOALS < I  DP , OBJ , I TYPE , LANS) 

THIS  SETS  UP  THE  GOALS 
REAL  OBJ 

CHARACTER  NAM  El  10)  *3,  UMAM  E  (  1 1 )  *  1 4  ,  GNAM  E  <  3 )  *  1 4 
CHARACTER  MSI 4) *5 , KG< 5) *4 ,MD<3> ^5 

L  OMM  C'N/  A  C  r .  NMA  C  ,  NA  L  ±  u  •  ,  AL  A  { u  x  0  >  ,  UT  z  \  i  0  ,  4 ,  KA  R  G ;  C  ,5,2'  ,  K  i  S  1 0 )  , 

C  GT <10 )  ,MHE( 1 0 ) ,NFP( 1 0 ) ,NPRK<10> 

CuMMCN/APD/DI ST  <  2) ,T INTER! 10) ,TINTRA( 1 0) ,EAS<10,4> ,CP1<4> , 

C  NKA( 2) ,NPAL , RC , GLS<  9,3) 

COMMON/ARM/NUN  I T  3  ,NUNT(  1 0  >  ,NTON(  1 1  , 5)  ,NFP'.  1 0 )  ,  NAT  < 1 0 )  ,NFT<  10)  , 

C  NTACI 1 0 )  ,NPK<  1 0  )  ,NTP(  1 1 )  ,NT'J<  11)  ,1  A3 (10  >  ,NCI  ( 10 )  ,  IYP  ,NHQ(  2) 
COMMON/TAB/NP , LP ,  I P ,NCR ,NEQ ,NPRIT , LL( 1 0 ,2) ,LU( 10 ,2) ,LPX< 10 ,4 ,5 ,4) , 
C  LPU< 10 ,3,4)  ,AI  J'1150 ,300)  ,RHS(150>  , LPS< 3 , 5 , 4)  , LPSL( 4)  ,LPR<  10)  , 

C  NT ( 150) , LMT ( 3 ) ,NC( 10) ,NWGT<150> ,NDV( 150) ,NID 
C OMM ON/ C HR/NAME , UNAME , GNAME ,MS , KG ,MD 
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GD  TO  THE  PROPER  TYPE 


IF(IDP.GT.NP)  I DP=NP 
I F< I TYPE . GT  .  3)  THEN 
IUT=ITYPE-3 
ITYPE=4 
END  IF 

GO  TO  ■:  0  9 , 1 9 , 2?  ,  39  >  I  TYPE 
TYPE  1 

SET  UP  EQUATIONS  FOR  FRONT  LINE  TRACE 

PRINT  *,■' - ' 

PRINT  * , '  FRONT  LINE  TRACE 

PRINT  - •' 

WRITE ‘1 13,#)' - 

WRITEC 13 ,#) '  FRONT  LINE  TRACE' 

WRITE-:  13,#)' - ' 

INCREMENT  THE  ROW  BY  1 


NE3=NE3+ 1 


FROM  THE  UNITS  DELIVERED  TO  THE  FRONT  (M=l)  AND  THOSE 
UNITS  DELIVERED  BY  INTRATHEATER  AC  <M=3) 

FOR  EACH  PERIOD  UP  TO  THE  DESIRED  TIME 

DO  10  L=1 , 1  DP 


FOR  EACH  UNIT  WITH  NFT(I).NE.O 

DC  11  1=1 ,NUNITS+ 1 

IF  <NFT(I)  .EQ.O)  GO  TO  11 
DO  15  M= 1 ,3 

IF< I .GT.IYP.AND.I .LE.NUNITS  .AND.M.NE .2)  GO  TO  15 
I F< I .LE.IYP.AND.M.EQ.2)  GOTO  15 

IF-lLMTd)  .LT.l  .AND.  IAB(I)  .EQ.O.  AND.  M.EQ.l)  Gu  TO  1 
IF<LMT<2) . EQ.O. AND. M.EQ.l)  GOTO  15 
IF<LMT-:3)  .EQ.O. AND. M.EQ.l)  GO  TO  15 
I F( IAB( I ) .EQ.l .AND.M.NE. 1)  GOTO  15 
A I J  <  N  E  3 ,  L  P  U  ( I  ,  M  ,  L ) )  =N  FT  <  I ) 

WRITE-!  13,03)NEQ,LPU<  I  ,M,L)  ,AI  J(NEQ  ,  LPU(  I  ,M,L))  , 

1  UNAME(I) ,MD(M)  ,L 

IF  ( LANS . Eu . 0 ,  Gu  iG  15 

PRINT  03 ,NEQ , LPU < I ,M,L) ,AI J<NEQ , LPU< I ,M,L>) , 

1  UNAME-,  I  )  ,MD(M)  ,L 

CONTINUE 
CONTINUE 
CONTINUE 


- 


FOR  EACH  UNIT  GOING  TO  THE  FRONT  (1...IYP)  WITHOUT 
AIRLIFT  <M=2) 


DO  12  1  =  1,  IYP 

I  F-:NFT<  I )  .  EQ.O.  OR.  NTV(I).  EQ.O)  GOTO  12 


U  U  U  O  U  (.>  u 


IF' IA3< : > . E3.1>  GO  TO  12 
MY=  I  NT  D I  ST  ( 2 .)  j/REAL  -I NTV  -l  I  '  *LP ) ) 
IF  CMY.GT.IDP)  GO  TO  12 


o  + 

C 


FOR  EACH  PERIOD  UNTIL  IDP-MY 


DO  13  L= 1,1  DP -MY 

A I J < NEQ  ,  LPU < I , 2 , L  >  >=NFT -:  I ) 

WRITE-13, 03)NEa,LPU(I ,2,L) ,AI J<NEQ , LPLK I ,2 , L) > , 
1  UNAMEvI.)  ,MD<2)  ,L 

IF  < LANS . EQ  .  0 )  GO  TO  13 

PRINT  0  3  ,NEQ ,  LPU(  I  ,2,L)  ,AI  J-INEQ ,  LPLK  I  ,2,D)  , 

1  UNAME-  I)  ,ND(2.)  ,L 

13  CONTINUE 

12  CONTINUE 

RH3<NE3)=0BJ 

WRITE  ( 1  3  ,  OS.'NEQ ,  RHS < NEQ ) 

I F( LANS . E3 . 1 )  PRINT  08 ,NEQ , RHS < NEQ) 


C , 


C 

c** 


L  +  -* 

L 

i? 


RETURN 
TYPE  2 

SET  UP  EQUATIONS  FOR  ANTI  TANK 


PRINT  - 

PRINT  */ 

PRINT  «,•' - 

URITE< 13,*) 
WRITE-;'  13,*)  ■' 


ANTI  TANK' 


NT I  TANK' 


WRITE-:  1  3 ,  ' - 

INCREMENT  THE  ROW  BY  1 


NEQ=NE3+ 1 


FROM  THE  FRONT 

FOR  EACH  FERIOD  UP  TO  THE  DESIRED  TIME 


C 

C** 

c 


DO  20  L-l  ,  I  DP 

FOR  EACH  UNIT  WITH  NATU).NE.O 

DO  21  1=1 ,NUNITS+ 1 

I F NAT ( 3 )  . E3.0)  GO  TO  21 
DO  25  M=1 ,3 

I F  < I  .  GT  .  IYP .AND . I . LE .NUNITS .AND .M .NE .2)  GO  TO  25 
IF-:  I  .LE.IYP.AND.M.EQ.2)  GO  TO  25 

I F ( LMT -:  1 )  .  LT ,  1  .AND  .  I AB<  I )  .  EQ  .  0  .AND  .M  .  EQ .  1 )  GO  TO  25 
I F < LMT (2) . EQ . 0 .AND .M . EQ . 1 )  GO  TO  25 
I  F •:  LMT (3)  . EQ  .  0  .AND  .M .  EQ .  1 )  GO  TO  25 
IF-:  IAB(  I )  .EQ.  1  .AND.M.NE.  1 )  GO  TO  25 

a i  j-:neq ,lpu-: i  ,m,d )=nat-  i > 

WRITE-:  1  3  , C3)NEQ  , LPU<  I  ,M , L)  ,AI  J<NEQ  , LPLK  I  ,M,L)>  , 

1  UMAME-:  I )  ,MD<M)  ,  L 

IF  < LANS. EG. 0)  GO  TO  25 
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25 

21 

20 

C 

C** 

c** 

t 


23 


C.  . 
C 

C** 

c** 

c 


c** 

c. . 

c*+ 

C  ** 

c 

c** 


PRINT  03,NE3,L?LK  I  ,M,L>  ,AI  JCNEQ  ,  LPIK  I  , 

;  UNAMEC I ) ,MD<M) ,L 

CONTINUE 
CONTINUE 
CONTINUE 


FROM  THE  APOD  FOR  EACH  UNIT  WALKING  TO  THE 
FRONT  <J=1 . . .IYP,M=2) 

DO  22  1=1, IYP 

I F  <  NAT < I > .  EQ . 0 . OR . NTW U ) . EQ  .  0 )  GO  TO  22 
MY =  I  NT  <  ( D I  3T  ■;  2 )  > / REAL  < NTV  <  I )  *LP) ) 

IF  (MY.GT. I  DP)  GO  TO  22 

FOR  EACH  PERIOD  UNTIL  IDP-MY 

DO  23  L= 1,1  DP -MY 

A I J  CNEQ , LFU ( I , 2 , L  > )=NAT ( I > 

WRITE1!  1 3 , 03)NEQ ,  LPU<  I  ,2,L)  ,AI  J-1NEQ  ,  LPU'l  I  ,2,L)>  , 
1  UNAMEU  )  ,MD(2>  ,L 

IF  < LANS . EQ . 0 >  GO  TO  23 

PRINT  03 ,NEQ , LPU< I ,2 ,L) ,AI J-NEQ , LPU< I ,2,L)) , 

1  UNAMEU)  ,MD<2>  ,L 

CONTINUE 
CONTINUE 
RHS(NEQ)=QE J 

WRITEU3,08)NEQ,RHS<NEQ) 

I F( LANS . EQ . 1 )  PRINT  08 ,NEQ , RHE(NEQ) 


P  URN 
TYPE  3 

SET  UP  EQUATIONS  FOR  COMBAT  POWER 

FRINT  *,-' - 

PRINT  *,'  FI  REPOWER  •' 

PRINT  *,' - 

WRI  i  t(  13,*.)  •' - 

WRITE (  13,*)  ■'  FIREPOWER-' 

WRITE1!  13,*)  ' - 

INCREMENT  THE  ROW  BY  1 
NEQ=NEQ+ 1 


FROM  THE  FRONT 

FOR  EACH  PERIOD  UP  TO  THE  DESIRED  TIME 


DO  30  L= 1 , 1  DP 
FOR  EACH  UNIT 

DO  31  1  =  1  ,NUNIT3+ 1 

I F  •! NFP U  )  . EQ . 0 . OR . CP I ( L )  .  EQ .  0 )  GO  TO  31 
DO  35  M= 1  ,3 

I FU  .  GT .  IYP  .AND  .  1  .  LE  .NUN  ITS  .AND  ,M  ,NE  .2)  GOTO  35 
I F< I .LE. IYP.AND.M.EQ.2)  GO  TO  35 

IFu-MTU)  .  LT  .  1  .AND.  I  ABU)  .  EQ  .  0  .AND  .M  .  EQ  .  1 )  GO  TO 
IF1! LMT (2)  . EQ  .  0  .AND  .M .  EQ  .  1 )  GO  TO  35 


35 


D-83 


I F •:  LMT :  3)  .  E3 . 0  .AND  .M  .53.1 >  GO  TO  35 
IFwAB<J>  .E3.1 .AND.M.NE.l)  60  TO  35 
A I J  •;  N  E3,LPU<  I  ,M,L) )  =N  F?U)*CPI<  L ) 

WRITE*:  1 3 ,  03>NEQ ,  LPU<  I  ,M,L>  ,AI  J<NEQ ,  LPLK  I  ,M,U)  , 

1  UNAME*:  I )  ,MD(M)  , L 

IF  < LANS .EQ.O)  GO  TO  35 

PRINT  03  ,NEQ ,  LPLK  I  ,M,L>  ,AI  J*  NEQ ,  LPLK  I  ,M,L>)  , 

1  UNAME*;  I )  ,MD*IM>  ,L 

CONTINUE 
CONTINUE 
CONTINUE 

FROM  THE  APOD  FOR  EACH  UNIT  WALKING  TO  THE  FRONT  < 1=1 . . . IYP ,M=I 
DO  32  1=1, IYP 

IFvNFPCI)  .EQ.O.OR.NTVU)  .EQ.O)  GO  TO  32 

I F < I ABC  I ) . EQ . 1 >  GO  TO  32 

MY= I NT  < ( D I  ST ( 2 ) ) / R EA L < NTV <I)*LP ) > 

IF  (MY.GT.IDP)  GO  TO  32 

FOR  EACH  PERIOD  UNTIL  IDP-MY 

DO  33  1=1,  IDP-MY 

A I JCNEQ ,  LPU'l  I  ,2,L)  )=NFP<  I  j  *CPI<L> 

WRITE:  1 3 , 03)NEQ , L?U<  I  , 2 , L)  ,AI  J*;NE3,LP'J<  1 ,2,L)  >  , 

1  UNAME ( I ) ,MD( 2) ,L 

IF  ( LANS .EQ.O )  GO  TO  33 

PRINT  03 , NEQ ,  LPU<  I  ,  2 ,  L>  ,  A I J  <  NEQ ,  LPLK  I  ,2,L>>  , 

1  UNAME*:  I )  ,MD(2)  , L 

CONTINUE 
CONTINUE 
RHS(NEQ)=CB J 

WRITE*:  13, 08)NEQ,RHS<NEQ) 

IFlLANS.EQ.l)  PRINT  08,NEQ,RHS<NEQ) 

RETURN 


TYPE  4 

GCAL  FuR  A  SPtCIFI'J  UNiT  *:  I UT )  DEPLOYED  BY  PERIOD  IDP 


PRINT  - 

PRINT  UNIT  GOAL'' 

PRINT  - 

WRITE*:  13,*)  ■' - 

WRITE:  1 3,  *>■'  UNI 

write: i3,*> • - 

INCREMENT  THE  ROW  BY  1 
NEG=NEQ+ 1 


UNIT  GOAL-' 


FRCM  THE  FRONT 

FOR  EACH  PERIOD  UP  TO  THE  DESIRED  TIME 


DO  40  L=1  , 1  DP 
DO  41  M=1  ,3,2 

I F :  LMT*:  1  >  .  LT  .  1  .AND  .  IAB(  I  UT)  .EQ.O  .AND  .M .  E*3 . 1 >  GO  TO  41 


D-S4 


I F  •:  LMT (  2 ;■  .  E  Q .  0  . AN D .  M .  E  Q .  1  >  GO  TO  41 
I F \  LMT •'  3  i  .  ES .  0  .AND  .M . EQ . 1  >  GO  TO  41 
I F >,  I AB I UT )  .  E3 . 1  . AND  .M  .NE .  1 )  GO  TO  41 
A I J (NEQ , LPU( I UT ,M , L) )  =  1  . 0 

U  R I T  E  •;  1 3 , 0  3 )  N  E  3 ,  L  P  U  <  I  UT  ,  M ,  L )  ,  A I J  < N  E  Q ,  L  P  l!  <  I  UT ,  M ,  L >  >  , 
1  UNAM  E  \  I  UT )  ,  M  D  ( M )  ,  L 

IF  < LANS . E3 . 0 >  60  TO  41 

PRINT  03 , NEQ ,  LPLK  I  LIT  ,M ,  L)  ,Ai  J(NEQ  ,  LPU<  I  UT  ,M ,  L)  > , 

1  UNAM  E  •;  I  UT )  ,  M  D  <  M )  ,  L 

41  CONTINUE 
40  CONTINUE 

C 

FROM  THE  APOD  FOR  I UT 
C 

IF  <NTv < IUT)  .  EQ  .  0 )  GO  TO  42 

MY  = I NT < < D I  ST ( 2 ) ) / REAL< NTV <IUT>*LP> ) 

IF  <MY.GT.IDP)  GO  TO  42 
C 

C**  FOR  EACH  PERIOD  UNTIL  IDP-MY 
C 

DO  43  L= 1,1  DP -MY 

A I J  <NE3  ,  LPU<  I  UT ,  2  ,  i_ )  )  =  1  .0 

WRITE-!  13,0  3  )NEQ ,  LPU<  I  UT  ,  2 ,  L)  ,  A I  J  (NEQ ,  LPU  <  I  UT  ,  2 ,  L ) )  , 
1  UNAME(IUT) ,MD<2>  ,L 

IF  (LANS. £0.0;  GO  TO  43 

PRINT  03 , NEC , LPU < IUT ,2 ,L) ,AIJ<NEQ , LPU< IUT ,2 ,L> ) . 

1  UNAME (IUT) , MD  <  2 ) , L 

4  3  C  ONT I N  U E 

42  CONTINUE 

44  RH3(NEQ)=0BJ 


WRITE; 1 3 , 0  8 > N E  Q , R  H  S <  N E  Q ) 

I F( LANS  .  EQ  .  1 )  PRINT  08 , NEQ , RHS(NEQ) 


RE ; URN 


03 

08 


h  ORMA  i  '  A I J  (  '  ,  2 1 4 , 
FORMAT  < ' RH3< '  ,14, 
END 


, r  1  4 . 5 , 3X ,A1 4 , 2X ,A5 , 1 3) 
, FI  4 . 5 ,/ , ' - 


C  +  -*H 


S3 

SUBROUTINE  HEADER 
C 

C**  PRINTS  OUT  THE  HEADER  TO  THE  PROGRAM  AS  AN  INTRODUCTION 

r 

CHARACTER  BLANK 
PRINT  12 


PRINT 

WELCOME  TO-' 

PRINT 

-PINT 

PRINT 

* 

*,■' 

Y  •' 

*  j  ' 

DDDDD  EEEEEE 

PFPPPP 

L 

000 

'f 

PRINT 

DDE 

P  P 

L 

0 

Y 

Y  " 

PRINT 

DDE 

P  P 

L 

0 

C  Y  '< 


D-35 


PRINT  D 


J  tcs:: 


PRINT  *, 

Y " 

PRINT  *, 

Y 

PRINT  * ,  ' 


PRINT  DDDDD 


EEEEEE 


PRINT  * 
PRINT  * 
PRINT  * ,  •' 
PRINT  * 
PRINT  */ 
PRINT  * 
PRINT 
PRINT  * 
PRINT 


GOAL  PROGRAMMING  MODEL'' 


FOR  THE 


RAPID  DEPLOYMENT  OF  ARMED  FORCE 


PRINT  * 

PRINT  INPUT  ANY  CHARACTER  TO  CONTINUE . ' 

read  * , blank 

PRINT  12 

F  0  RMAT  (  ///////////// //////////  ) 

RETURN 
END 


(•■*  *  ****■<•  *  +  **  i 


C  SI: 


SUE  R 0 UT I N E  FMAT 

C  OMM ON/T A B/N P  ,  L  P , I P , N  C  R , N  E  0 , N  P  R I T  ,  L  L  < 1 0 , 2 )  ,  L  U  < 1 0 , 2 ) , L  PX  < 1 0 , 4 , 5 
C  LPU  <  1 0 , 3 , 4)  ,  A I J  (  1 50 , 30  0 )  ,  RHS  (1 50 )  ,  LPS  ■!  3 , 5 , 4  •  ,  LPSL  ( 4 1  ,  LPR  <  1 0 
C  NT  :  150  > , LMT \ 3 ) ,NC< 10) .NWGTC 150) fNDV(150) ,NID 

ETS  UP  THE  FILE  FOR  THE  PAGP  PROGRAM 

PRINT  *  , y FMAT ' 

CPEN'>  1  5  ,  P I  _E-  '  I  F  I  l_E  ' ) 

OPEN! 1 4 , P I wE=  ' TP  I LE  > 

REWIND1!  1 3 
REWIND  ■!  14,' 

TE  THE  IFILE  AND  FIND  THE  NUMBER  OF  TERMS  (NT)  FOR  EACH  ROW 


DO  10  1  =  1, NEQ 
DO  12  J=1 , I P 

I F ■!  A i  J I  ,  J )  . E 9  •  0 )  G U  TO  12 

WRITE'!  15,5)1  ,  J  ,  A I J  ( I  ,J) 
FORMAT (2I4.F15.9) 

CONTINUE 

WRITE'!  1 5 ,5)  I  ,  0  , RHS ■!  I  » 

CONTINUE 
CLOSE'!  1 


APPENDIX  F 


EAJ3E  Suhc^uiiae  and  Euaciian  L±s.±_i_ng 

Computes  the  relative  cost  coefficients  for  each 
variable  in  the  current  tableau  and  the  objective 
function  value  at  the  current  priority. 

(function)  Places  floating  point  values  that  are 
within  l.E-5  of  an  integer  to  that  integer. 

Read  in  any  real  (equal i ty)  constraints  and 
performs  a  simplex  procedure  to  find  an  initial 
basic  feasible  solution. 

Puts  the  objective  function  weights  for  the 
deviation  variables  at  the  current  priority  in  the 
correct  position  in  the  tableau. 

Prepares  and  prints  the  solution  information. 

Reads  in  the  goal  constraints  and  objective 
function  terms  assigned  to  the  current  priority. 

Determines  the  next  entering  variable's  column  and 


III  10 

1  m 

HIM 

m 

iii6 

m 

III 1,1 

;  4  0 

la 

[  1.8 

m 

lu  III 

1 1.6 

MICROCOPY  Rl.MM.UHON  II SI  CHARI 


AEEEND.LX  £ 


Uac-iabla 
IND< I > 

JCOL ( I  ,  1 > 
JCOL( I ,2) 
JR 0W< 1,1) 

JRGW( 1,2) 
NC  ( N ) 

NCGLI 

NPRIC 

NPRI7 

NRCWI 

NUAR 
TA  <  N ) 


TB  (  I  ) 


TE< I , J) 
TUN,  J) 
TT  < N , J  > 


EAEE  Li.s±lng 

Da£lnx±ian 

Indicator  row  that  marks  the  eligibility  of  a 
variable  to  enter  the  basis. 

The  type  of  variable  in  column  I. 

The  subscript  of  the  variable  in  column  I. 

The  type  of  basic  variable  in  row  I,  where  type 
i s  X=2 ;  p=3 ;  n=4 . 

The  subscript  of  the  basic  variable  in  row  I. 

The  number  of  constraints  assigned  to  pr i or i ty 

N. 

The  number  of  columns  in  the  current  tableau. 

The  priority  currently  being  optimized. 

Total  number  of  priorities  in  the  problem. 

The  number  of  rows  in  the  current  working 
tableau. 

The  number  of  decision  variables. 

The  total  deviation  from  the  goals  at  priority 

N. 

The  right  hand  side  constant  of  the  constraint 
in  row  I . 

The  coefficient  of  the  variable  in  column  J  of 
the  constraint  in  row  I. 

The  weight  assigned  to  the  basic  variable  in  row 
I  at  priority  N. 

The  weight  of  the  variable  in  column  J  at 
priority  N . 


PERFORM 
GP  SIMPLE'/. 
OPERATIONS 


AHPtNulA  I 


£tiG5  Lj.s1.lii 


PROGRAM  PAGP 


CAPT  D.  0.  TATE  THESIS  WORK 


CHARACTER  KID<188>*24 
COMMON  TT< 10,402)  ,TB< 130)  ,TE< 1 30 ,402)  ,TL<  130 ,10)  ,TA-.  1 0 )  ,INB(  130) 
C  TH1 0,402)  ,  JCOL(402,2)  ,NCOLI  ,NROWI  ,NPRIC.NCUO)  , JROUK  130 .2)  , 

C  NVAR ,NPRIT  ,  IND-l 402) ,NTR(130) ,NDV-:i30) ,NID ,NWGT< 1 30 ) , LCTR 
COMMON  /PHASE1/  W ,NRCON ,NDUR 
COMMON  /CHNG/NCQN-I  130 ,10)  ,NTOF-;iO) 

COMM ON/ CHAR/ KID 
INTEGER  ALT ST 
C 

C  *44*  READ  IN  PROBLEM  DATA 
C 

OPEN -I 1 3 , FI LE=/ 1 F I L E  ) 

REWIND'!  13) 

OPEN< 1  4  ,  FI LE=  'TFI LE  ' ) 

REWIND-;  14) 

OPEN-:  1 5  ,  F I  LE=  •'  RSFILE  ' ) 

REWIND-:  15) 

C 

C-  INPUT  THE  APRIORITIES ,  AVARIABLES,  AREAL 
C-  CONSTRAINTS,  AND  NEQ 
C 

READ-:  1  4  ,  *  tNPRIT  ,NVAR  ,NRCON  ,NEQ  ,NID 
OPEN-:  1 6  ,  F I  LE=  '  I DF I LE ' ) 

REWIND-.  16) 

DC  23  1=1 ,NI D 

READ-:  16,6) K, KID<  I ) 

23  CONTINUE 
6  FORMAT  < 1 4 , 3X , A24 ) 

c 

C-  INPUT  THE  NUMBER  OF  CONSTRAINTS  THAT  WILL 
C-  BE  ADDED  AT  EACH  PRIORITY 
C 

DO  22  NP= 1 .NPRIT 

READ-:  14,*)  I  ,nc-:np> 

IF-.  I.NE.NP  -  THEN 

PRINT  *,'I  <>  NP-  I=',I,'  NP= ' ,NP 
STOP 
END  IF 

22  CONTINUE 


C-  READ  IN  THE  DEVIATION  VAR  WEIGHTS  AND  THE  NUMBER  OF  TERMS/EQUATION 
C 

DO  20  NR=1  ,NEQ 

READ-:  14,4.1  ,NDV-  I  -  ,NWGT -.  I  -  ,NTR\  I  - 
IF (I.NE.NP)  THEN 

PRINT  4.1  -  NP-  1=  .  I  .  '  NR-  .NR 


END  I F 

20  CONTINUE 

PRINT  1  6  ,NPRIT  ,NVAR  .NRCON  ,NEQ 
WRITE-:  15,  la)NPRIT,NVAR, NRCON, NEQ 
1  6  FORMAT-: 'NPR1T=' ,14/  NVAR=  '  ,  1 4 , '  NRCON='  ,14,'  NEQ=',I4 
DO  10  NP= 1 ,NPRIT 
10  CONTINUE 

17  FORMAT-:  'NC-:-'  ,14,')  =  '  ,I4> 

1  =  0 

c 

C-  INPUT  THE  SUBSCRIPTS  OF  THE  CONSTRAINTS 
C-  TO  BE  ADDED  AT  A  SPECIFIC  PRIORITY 
C 

DO  101  NP=1 ,NPRIT 

if  (nc-:np) .eq.o)  go  to  101 
nctmp=nc-:np> 

DO  12  N=1 ,NCTMP 
I  —  I  1 

ncon-:n,np>=i 

12  CONTINUE 

101  CONTINUE 

1 S  FORMAT-  'NCON-:  ',213, '  >  =  '  ,13.) 

C 

C-  INPUT  THE  NUMBER  OF  TERMS  IN  THE  OBJECTIVE 
C-  FUNCTION  AT  EACH  PRIORITY 
C 

NT  OF-;  1  )=NC'<  1 ) 

DO  14  J=2,NPRIT 
NT  OF-:  J)=NC(  J> 

14  CONTINUE 

19  FORMAT-;  'NTOF-:  "  ,  13,')=  ,13) 
r 

C  INITIALIZE  SUBFROBLEM  DIMENSIONS  AND  COLUMN  INDICATOR 

C 

LCTR=0 
NCOL I =0 
N ROW 1=0 
NPR I C=0 

DO  104  NCR= 1 ,402 

ind-:ncr)=i 

DO  102  NR= 1 ,130 

102  TE--NP  ,NCR>  =  0  . 

DO  103  NP= 1 ,5 

Ti-NP,NCR)=0 . 

102  TT  -,NP  ,NCR  )  =  0  . 

104  CONTINUE 

DO  105  NR= 1 ,130 

ine-;nr,-=o 

DO  105  NP= 1 ,10 
1G5  Tl-'NR  ,NP  )  =  0  . 
c 

C  *■+**  CHECK  FOR  REAL  CONSTRAINTS. 

C 


IF  ( NRCON .EQ.O)  GO  TO  10 


CALL  PHSEi 

IF  (NDVR.LE.O  ;■  GO  TO  116 
IF  (W.GT.O.)  GO  TU  117 
C 

C  ****  THE  PARTITIONING  ALGORITHM  BEGINS. 

C 

106  NPRI C=NPRI C+ 1 

IF  (NPRIC.EQ. 1 .AND.NRCON.EQ.O)  GO  TO  107 
GO  TO  108 

107  PRINT  * , ‘MUST  INCLUDE  SUBROUTINE  READ1 ' 

GO  TO  10? 

108  CalL  READS 
NPIV=0 

10?  CALL  CINDX 

CALL  TEST  (NEVC  ,NDVR> 

C 

C  ****  IF  NEVC  IS  LESS  THAN  ZERO,  THE  SUBPROBLEM  IS  OPTIMIZED. 

C 

IF  (NEVC.LE.O)  THEN 

PRINT  SUBPROBLEM  OPTIMIZED'- 
WRITE1;  15,*)  'SUBPROBLEM  OPTIMIZED" 

GO  TO  110 
END  IF 
C 

C.  IF  NDVR  IS  LESS  THAN  ZERO,  NO  MINIMUM  POSITIVE  RATIO  WAS  FOUND. 

C 

IF  (NDVR.LE .0)  THEN 

PRINT  * , 'NO  MINIMUM  POSITIVE  RATIO  FOUND' 

WRITE(  15,*)  'NO  MINIMUM  POSITIVE  RATIO  FOUND'- 
GO  TO  116 
END  IF 

CALL  PERM  (NEVC ,NDVR) 

NP IV=NP I V+ 1 

PRINT  *  ,  PIVOTS  '"  ,NPI V ,  ''  NPRI C='-  ,NPRI  C 
WRITE'-.  15,*)  'PIVOTS  '-,NPIV,'-  NPRI  C="'  ,  NPRI  C 
GO  TO  10? 

C 

C  *-**  IF  THERE  ARE  NO  MORE  PRIORITIES,  TOTAL  PROBLEM  IS  OPTIMIZED. 

C  ****  PRINT  THE  OPTIMAL  SOLUTION. 

C 

110  IF  (NPRI C . E3.NPRIT)  GO  TO  115 
C 

C  ****  SINCE  THERE  ARE  MORE  PRIORITIES,  MOVE  ON  TO  THE  NEXT  SUBPROBLEM 
C  ♦  IF  THERE  ARE  ALTERNATE  SOLUTIONS.  FIRST,  ELIMINATE  THOSE 
C  **♦*  COLUMNS  WHICH  CAN  NOT  ENTER  THE  BASIS.  IF  THERE  ARE  NO 
C  *■**■*  ALTERNATE  SOLUTIONS.  PRINT  THE  UNIQUE  OPTIMAL  SOLUTION. 

C 

ALT  ST=0 

DO  112  NCR=1 ,NCOLI 

IF  ( IND(NCR)  .EQ.O  <  GO  TO  112 
IF  (TKMPRICjNCR.)  .GT.O.)  GO  TO  112 
DO  111  NF-l.NROWI 

IF  (  JROW-  NR,  1 )  . EQ  .  JCOL'INCR  ,  1 )  .AND .  JROW'INR , 2)  . EQ .  JCOLvNCR  ,2.) ) 
1  GO  TO  112 

111  CONTINUE 


1-3 


ALT  S~= i 

112  CONTINUE 

****  IF  ALT3T=!  ,  THESE  ARE  ALTERNATE  SOLUTIONS. 

IF  (ALT ST . EQ . 1 )  THEN 

PRINT  * , "THERE  ARE  ALTERNATE  SOLUTIONS' 

WRITE- 15,*) 'THERE  ARE  ALTERNATE  SOLUTIONS' 

GO  TO  113 
END  IF 
GO  TO  115 

****  ELIMINATE  THOSE  COLUMNS  WITH  A  POSITIVE  RELATIVE  COST  AT 
****  PRIORITY  NPRIC. 

113  DO  114  NCR=1 ,NCOL I 

114  IF  <TI (NPRIC, NCR) .GT.O.)  IND(NCR)=0 
GO  TO  106 

****  THE  OPTIMIZATION  IS  OVER.  PRINT  OUT  THE  FINAL  SOLUTION. 

115  CALL  POUT 
GO  TO  11? 

116  WRITE  (6,123)  NPRIC 
GO  TO  119 

117  WRITE  (6,124)  W 
WRITE  (6,125) 

DO  113  NR=1 , NR GW I 

WRITE  <6,123.-  JRQW(NR ,  1 )  ,  JROW(NR ,2)  ,TB(NR) 

113  CONTINUE 

11?  WRITE-. 6,*)  OPTIMIZATION  IS  FINISHED.  ANSWER  IS  IN  FILE  GPANS . ' 
STOP 

120  FORMAT  (315) 

121  FORMAT  (1015) 

122  FORMAT  (1615) 

122  FORMAT  </  40H  THE  PROGRAM  TERMINATED  ON  SUBPROBLEM  ,14,  42H  NO 

1  MINIMUM  POSITIVE  RATIO  COULD  BE  FOUND) 

1 24  FORMAT  (/  65H  THE  PROGRAM  TERMINATED  IN  PHASE  1  WITH  OBJECTIVE  F 

1  UNCTION  VALUE, F. 5.4) 

125  FORMAT  </  55H  THE  OPTIMAL  SOLUTION  TO  THE  PHASE  1  PROBLEM  IS 

1  //  6H  TYPE ,  2X ,  3HSUB  ,  8X ,  5HVALUE) 

12o  FORMAT  ( 2 1 5 , F 1 5 . 4 ) 

END 

SUBROUTINE  PHSE1 

*♦**  SUBROUTINE  PHSE1  READS  IN  ANY  REAL  CONSTRAINTS  AND  PERFORMS  A 
****  PHASE  1  SIMPLEX  PROCEDURE  IN  ORDER  TO  FIND  AN  INITIAL  BASIC 
♦***  FEASIBLE  SOLUTION. 


COMMON  TT-.  10,402)  ,TB<  130  )  ,TE(  1 30 , 402)  ,TL(130 ,10  >  ,TA(10)  ,  INB(  130)  , 
C  TI-.  10,402)  ,  JC0L(402,2)  ,NCOLI  ,NROWI  , NPRIC  ,NC(  10) ,  JROW(  130 ,2)  , 

C  NVAR ,NPR I T , I ND (402) ,NTR(130) ,NDV(130> ,NI D ,NWGT ( 1 30 ) , LCTR 

COMMON  /PHASE 1/  W,NRCON,NDVR 


DIMENSION  C< 402) ,  CR<402> 
NPIV=0 


C3( 130  > 


C 

C  ****  SET  COLUMN  AND  ROW  HEADINGS 
C 

DO  101  NV= 1 ,NVAR 
JCOL(NV  ,  1  )=2 

101  JCOLvNV , 2>=NV 

DO  102  NR= 1 ,NRCON 
JRCU<NR , 1 !>  =  1 
JR0W<NR,2>=NR 
NAR=r  iVAR+NR 
JCOKNAR ,  1  )=  1 

102  JCOKNAR, 2)=NR 
C 

C  ****  READ  IN  COEFFICIENTS  AND  RHS  OF  REAL  CONSTRAINTS 
C 

DO  103  NR=1 ,NRCON 
C- 

c-  INPUT  THE  RHS  OF  REAL  CONSTRAINT  NUMBER  ,NR 
C-  INPUT  THE  COEFFICIENTS  OF  REAL  CONSTRAINT  NUMBER 

DO  30  NV=1 ,NTR(NR> 

READ1: 13,6)1  ,  J,TE(  I  ,  J) 

31  FORMAT ( 'TE<  I , J)= ' ,  1 3 , 3X ,  I  3 , 3X ,  F?  .  2) 

IF(I.NE.NR)  THEN 

PRINT  *,'**  I  <>  NR  **  I=',I,'  NR=/ ,NR, '  J=',J 
STOP 
END  IF 

30  CONTINUE 

READ< 13,6)1 , J  ,T3< I ) 

6  FORMAT  >121 4,  FI  5. 9) 

32  FORMAT < ' TB < I )  = ' , I  3 , 3X , F9 . 2) 

103  CONTINUE 

WRITE C 15,*)'' PHShi  DATA  ENTERED' 

C 

C  44*4  PUT  IDENTITY  MATRIX  IN  FOR  ARTIFICIAL  VARIABLES 
C 

DO  104  NR- 1 , NR CON 
NAR=NVAR+NR 
INB(NR)=NAR 

104  TE(NR,NAR;=1 . 

WRITE'!  15,  *) 

WRITE'!  15  ,*!•'  'THE  STARTING  BASIS.' 

PRINT  * , 'THE  STARTING  BASIS.' 

DO  55  1=1 .NRCGN 

WRITE'.  15,56.)  I  ,  INS'!  I  ■ 

55  PRINT  56,1  . INB'!  I  > 

56  FORMAT'  INB:  ’ ,I3,3X,I4> 

C 

C  *<44  SET  C'!J>  =  0  FOR  ALL  DECISION  VARIABLES  AND  C< J)  =  l  FOR  ALL 
C  444*  ARTIFICIAL  VARIABLES 
C 

DO  105  NV= 1  ,NVAR 

105  C'. NV!i=0  . 


Cl  o 


DO  10a  MR=1 .NRCGN 
CB'INR >  =  1  . 

NAR=NVAR+NR 
106  C NAR  .-,=  1  . 

C 

C***  CALCULATE  RELAX ICE  COST  COEFFICIENTS  CR'l.) 

C 

NCOL=NVAR+NRCON 
10?  DO  108  N'v - 1  ,NC0L 

cr:nv>=C';nv:> 

DO  106  NR=1 ,NRCON 
108  CR< NV )  =  C R < NV ) - C 3 < N RnTE\NR, NV ) 

C 

C-  CHECK  FOR  OPTIMALITY 

C 

VEVC=0  . 

NEVC=0 

DO  109  NCO=l  ,NCOL 
NV=NCQ 

IF  -;CR<NV>  .GE  .0  . )  GO  TO  109 
19  k  CR'INVV  . GE .VECC)  GO  TO  109 
CE;-'C=CR',NU ) 

NE'  C=NV 
lO5  r "NT  I N L E 
C 

C  *♦-*  19  NEYC=0 ,  PHASE  1  IS  OPTIMIZED.  CALCULATE  OBJECTIVE  FUNCTION. 

IF  ',NE:.'C  .  EQ  . 0  >  GO  TO  115 
C 

C  DETERMINE  DEPARTING  VARIABLES  ROW. 

C 

N  DV  P  =  0 

VDCR= 1 0 . OE*  20 
DO  111  NR  I  =  1  ,NF:CON 
NP=NR I 

I  9  \TE\NR  ,NEVC'  ,LE  .0  . )  GO  TO  111 
V="B 'NP  TE'MP  .NE’  C  ■ 

19  (NDVP  .  EQ  .  0  >  GO  TO  110 
19  <V-VDVP  110.110.111 

I I  ]  VDVR=V 

NDVR=NR 

III  CONTINUE 

r 

c 

C  IF  NDVP=0,  MINIMUM  RATIO  RULE  FAILED.  RETURN. 

C 

IF  'INDVR  .  EO  .  0  1  RETURN 

PERFORM  THE  PIVOT.  REPLACE  HEADINGS  AND  COST  COEFFICIENT. 

JROW'.NDVP.l  >= JCOL '  NEVC  ,  I  ' 

JROW'INDVR  , 2  )  =  JCOL (NEVC  ,  2  ■ 

CB'NDVR  >=C‘1NEVC  > 

NDVC=INB'iNDVR  > 

INB-INDVR  >=NEVC 

PRINT  5  .ND'-'R  ,NDVC  ,VDVR  ,MEVC  ,VEVC 


I-f. 


o  o 


5 


WRITE';  15.5  'ND'-R  ,NDUC  ,UDUR  ,NEUC  ,UEUC 
F  0  RMAT  <  5X  ,  "  N DU  R=  ,14, 3X  ,  "  N  DU  C=  ,14, 3X  . '  U  DU  R=  •'  ,  F 1 0 . 3  , 
1  / 1  7X ,  •' NEUC=  ,14, 3X ,  ' UEUC=  .  F 1 0 . 3  > 


****  COMPUTE  NEW  TE  ARRAY 
C 

PIU=TE(NDUR ,NEUC i 
PIB=TB<NDUR) 

DO  113  NR=1 , NR CON 

IF  (NR.E3.NDUR)  GO  TO  113 
IF  <ABS<TE<NR ,NEUC> ) .LE . 0 . 0005)  GOTO  113 
P I X=T  E  <  N  R , N  EU  C ) / P I U 
T  B  < N R > = F IX < T  B < NR) -PIX*PIB ) 

DO  1 12  NU= 1 ,NCQL 

112  TE<NR ,NU)=F IX<TE<NR ,NU) -TE< N DU  R , NU ) *  P I X ) 

113  CONTINUE 

T  B  <  N  DU  R )  =  F I X  <  P 1 3/  P I V ) 

DO  114  NU= 1  ,NC0L 

114  T  £  < N  DU  R  ,  NU )  =  F I X  <  T  E  <  N  DU  R , NU  > / P I U ) 

C 

C  4**4  END  OF  PIUOT  OPERATIONS.  PROCEED  TO  NEXT  ITERATION. 

C 

NPIU-NPIU+ 1 

FRINT  PIUOT  #  '  ,NPIU  , '  NPRI  C=' ,NPRIC 
WRITE <  1 5  , *>  'PIUOT  #  ',NPIU,'  NPRI C=  '  , NPRI C 
GO  TO  107 
C 

C  CALCULATE  W,  THE  PHASE-1  OBJECTIUE  FUNCTION. 

C 

115  W=0  . 

DO  1 16  NR=1 ,NRCON 

116  W= W + T  B  <  N  R  >  *  C  B  <  N  R ) 

C 

C  **-*  INITIALIZE  THOSE  PORTIONS  OF  THE  TABLEAU  ASSIGNED  TO  THE 
C  **•*-<■  ARTIFICIAL  UARIABLES. 

C 

DO  117  NR=1 ,NPCON 
DO  117  NU=1 ,NCGL 

IF  <NU . LE .NUAR)  GO  TO  117 
TE<NR ,NU)=0 . 

117  CONTINUE 
C 

C  ****  UPDATE  NCOLI  AND  NROWI  PARAMETERS . 


NRGWI=NRCON 

NCOLI=NUAR 

PRINT  4, 'TOTAL  PIUOTS=  ,NPIU 
WRITE’.  15,4)  TOTAL  PIUOT*'  ,NPIU 
RETURN 
C 
C 

END 

SUBROUTINE  READ2 
C 

C  ****  SUBROUTINE  READ2  READS  IN  THE  GCAL  CONSTRAINTS  AND  OBJECTIUE 


M 


.1 


« 


4 


< 


( 


I 


< 


C  *•*•*■*  FUNCTION  TERMS  ASSIGNED  TO  PRIORITY  NFRIC. 

C  *■**«  SUBROUTINE  READ 2  IS  ALSO  USED  TO  READ  IN  THE  FIRST  PRIORITY  GOAL 
C  CONSTRAINTS  AND  OBJECTIVE  FUNCTION  TERMS  IF  REAL  CONSTRAINTS  ARE 

C  PRESENT. 

C 

COMMON  TT( 10 ,402) ,TB<130) ,TE< 130 ,402) ,TL< 130 ,10) ,TA(10) , I ME  1 1 30 >  , 
C  TI(10 ,402) , JC0L(402,2) .NCOLI ,NROWI ,NPRIC ,NC< 1 0) , JROUK 1 30 ,2) , 

C  NVAR  ,NPRIT  ,  IND1.'  402)  ,NTR(130)  ,NDV<130)  ,NI  D  ,NUiGT < 1  30 )  ,  LCTR 
C  OMM  ON  /  C  HN  G/N  C  ON  (1 3  0  , 1 0 )  ,  NT  0  F  ■  1 0 ) 

I  F  (NC’INPRI  C) .  EG  .  0 )  GO  TO  107 
C 

C  REmD  IN  THE  COEFFICIENTS  OF  THE  X'S. 

C 

NCTMP=NC(NPRIC) 

DO  106  NR  1  =  1 ,NCTMP 
NR=NR I +NROWI 
NC1=NC0LI +2*NRI -1 
NC2=NC0LI +2*NRI 
JCOLINCl  ,  1 >  =  4 

JCOKNCl  ,2)=NCON(NRI  , NFRIC) 

JC0L(NC2 , 1 )=3 

J  C  0  L  <  N  C  2 , 2  >  =  N  C  ON  <  N  R I  ,  N  P  R  i  C ) 

p 

L 

C-  INPUT  THE  COEFFICIENTS  OF  THE  DECISION  VARIABLES 
C-  AND  RHS  FOR  PRIORITY  ttNPRIC  AND  CONSTRAINT  ttNRI 
C 

DO  30  NV=1  .NTR'.'NR) 

READ1: 13,6)1  ,  J  , T E  ( I  ,  J ) 

31  FORMAT'.  ■' T E *1 1  ,J)='  ,  1 3 , 3X , 1 3 , 3X ,F?  .2) 

IFU.NE.NR)  THEN 

PRINT  »,'**  I  <>  NR  **  I=',I,/  NR=" ,NR , '  J=',J 
STOP 
END  IF 

30  CONTINUE 

READ 1  1  3 , 6  ■■ 1  ,  J  ,TE  ■.  I  1 
6  F  G RMAT ( 2 1 J , F 1 5 . 9  > 

32  F 0 RMrtT <  'TB<  I  •’=  '  ,I3.3X,F?.2) 

TE(NF.  ,NC1  j  =  l  . 

I MB (NR >=NC 1 
TE(NR  ,NC  2.)  =  - 1  . 

C 

C  ****  PERFORM  THE  ROW  REDUCTION. 

C 

DO  10U  NRC=  ;  ,NF lUI 

IF  ■■ JRON'.NRC.l  •  .NE.2'  GO  TO  102 
J= JRCN ■ NRC , 2  ■ 

T  5  ( N  P  ■  =T  B  N  R  ■  ~  :  t  N  P  ,  J  *  E 1  N  R  C  > 

DO  101  NC  R= 1 ,Nc 2 

IF  (NCF.EQ.J-  GO  TO  101 

TE  ■  NR  ..NCR  i  =  TE  NR  .NCR  -  -TE  1  NP  ,  J  >  E  ■  NFC  ,NCR 
1  !J  *  Lj.ii  . .  <UE 

T  E  •  f  I R  ,  J  ■  =  0 
10.:  L  jf  i~  j  NUE 

C 

L  ***+  DE’E AMINE  THE  DE  / 1 h *  I  INr-L.  P  I >— B L E  TO  ENTER  Tr'E  BwS  I  3  . 


IF  (TB-.NRv  1  02.105,1  05 


*•*•**  SINCE  TB  IS  LESS  THAN  ZERO,  MULTIPLY  THE  ROW  BY  -1  AND  ENTER  D  + 
**■*■*  IN  THE  BASIS. 

103  DO  104  NCR= 1 ,NC2 

104  TE<NR,NCR.»  =  -TE(NR,NCR> 

T B NR  j  =  *T B NR  > 

JROU'INR .  1  )  =  3 

J  R  GW  <  N  R ,  2  >  =N  C  ON  <  N  R I  ,  N  P  R I C ) 

GO  TO  106 

SINCE  TB  IS  GREATER  THAN  OR  EQUAL  TO  ZERO  ENTER  D-  IN  THE  BASIS. 

105  JROU'INR  ,  1  >  =  4 

JRCLKNE ,2  *=NCON(NRI ,NPRIC > 
lOo  CONTINUE 

INCREASE  THE  PARAMETERS  NCOLI  AND  NROUI . 

NX=NRCW I 
NCDLl=NC2 
N  R  OU I=N R 

-  AT  PRIORITY  #NPRIC,  INPUT  THE  SUBSCRIPT,  TYPE,  AND 

-  WEIGHT  OF  EACH  TERM  IN  THE  OBJECTIVE  FUNCTION. 

(IF  TERM  IS  POSITIVE  DEVIATIONAL,  TYPE=2> 

(IF  TERM  IS  NEGATIVE  DEVIATI  ONAL ,  TYPE-4) 

I  0  7  NTTMF=NT OF ( NP R I C  > 

DO  103  NT=1 ,NTTMP 
LCTR=lCTR*  1 
ISUB=lCTR 
I  Tf  P  E=NDV ( NX +NT > 

WGHT=NUGT (Nx+NT ; 

CALL  PLACE  •  I  SUB. ITYPE,WGHT> 

103  CONTINUE 


SUBROUTINE  PLACE  ( I  SUB , I TYPE ,WGHT  > 

r 

0  ♦  SUBROUTINE  PLACE  PUTS  THE  OBJECTIVE  FUNCTION  WEIGHTS  FOR  THE 
0  DEVIATION  VARIABLES  A"  THE  CURRENT  PRIORITY  LEVEL  <NPRIC>  IN  THE 

r  ♦  ♦♦♦  CO-'-EO-  PCS  I ""  I  ONS  IN  THE  AUGMENTED  TABLEAU. 

C  *  *  *  * 

.  ****  I;UE-  -E  SUBS'.  R I PT  OF  THE  DEVIATI  UNAL  VARIABLE 

0  ♦  ♦  ♦  ♦ 

C  ♦♦♦♦  I T  /PE=  3  ,  IF  POSITIVE  DEV  I AT  I ONAL  VARIABLE  <D+) 

C  ♦  4,  IF  NEGATIVE  DEVIATIONAL  VARIABLE  <D-> 


WO’HT =T  ”E  CARDINAL  WEIGHT  OF  THIS  DE:  I  AT  I  ONAL  VARIABLE  AT  THE 
♦  ***  CURRENT  PR  I  OR  IT.  LEVEL 


L  w  i 

MON 

TT  ■  1 

0,402' 

u. 

T  T  , 

;j,4o 

2  ■  ,  JCGi 

c 

NVaR  ,npr 

IT ,  INC- 

COMMON 

/Ch'NG/NCuN 

**->■*  PL 

.Ale 

THE 

W  E I G  H  i 

NCI 

=NVi 

M  K  i 

DO 

101 

NCR= 

NCI ,NC 

t  r- 

i  r 

■»  JCOL 

'.‘NCR  ,  1 

1  !;  1  LUTl 

i~  INUE 

io:  ' 

NFP 

IC.MC 

R  '=WGK 

♦  PC 

.ACE 

THE 

WE  I GHT 

DO 

1  0  s 

NF-1 

,  NR GW I 

I  F 

(  JF.CW 

'•NR,  1  1 

103  C3L 

IT  IN 

J  H 

GO 

T  0 

10  3 

1C 4  TL-I 

MR  , 

MFRIC 

■'  =WGHT 

i  MB1: : 10 

*  Op  9  , 

‘  jl-  I  -  J 

.CTR 


. EQ.ISUB,1  GO  TO  102 


HE  WEIGHT  IN  THE  PROPER  ROW  IN  THE  LEFT  STUB. 


104 


CONTINUE 

RETURN 


END 

SUBROUTINE  CINDX 

*♦*•*  SUBROUTINE  CINDX  COMPUTES  THE  RELATIVE  COST  COEFFICIENTS  FOR  EACH 
**-*«  VARIABLE  IN  the  CURRENT  TABLEAU*: THE  TI<  .  ,  .  >  ARRAY'  AND  THE 
****  OBJECTIVE  FUNCTION  VALUE' THE  TA*'.  .  1  ARRAY  ;  AT  THE  CURRENT 
♦  ♦♦•»  P R : ' j R I ~  ' N F R I C  ; 


COMMON  TT-.  10  ,4Q2  1  , T B ■  130  >  ,TE  1  30 ,402.' 
T  I  1  0,402',  JCOL'  402 , 2  1  ,NCOLI  ,NR.CWI 
N'  ~R  ,Nr  R I ~  ,  I N D *  40  2'  ,N"R '.130'  ,ND‘ • 1  1 


,TL*  130,10  •  ,TA<  10‘>  ,INB<  130  >  , 
,  NrR  I  ,NC 10',  JR  GW1. 130 ,2  1  , 

SO  •  , Ml  O  ,NUGT ■  i  30 , LCTR 


NC  ‘ 


D 3  101  N  P  = 1 . M  R  GW  I 

10  1  Ti-"  NF  R.  I  C  '  s”— 1  NR "  J  C  ■  *  TE  ■  NR  '  ♦  TL’.NR  ,NRRI  0  ■ 

D'j  1  'J  NCR— 1  ,  NLULI 

.  1  NF  R  I , NC R  =T7  NRR  I  ,  ,Nl  R 
J  i j  i  -j  l  ir=.  .  ", 

13  2  Ti  NRR  I  C  ,  NC5  r.R^  I  I  ,’iCR  ■  -TE  NR,NCR*7L  NF  ,NrQi  C  ■ 

RETURN 

Er  iD 

SU3R0U7 1.'  it  TEST  vhEVC  ,NDVR  • 

****  LUBFUUTINE  TE;"  DETERMINE?  THE  NEXT  ENTERING  VARIABLE  '  S  COLUMN 
♦***  •  NEVC !  AND  THE  NE  T  DE=-PTING  VARIABLE  S  ROW' NDVR  1  .  IF  NO 

"  .,E*"HE~  OPT  IM I  S.-T  I  CN  I;  POSSIBLE,  THE  VALUE  NEVC=0  IS  RETURNED  ■ 
i-  NDL'R=0  IS  RETURNED,  NC  MINIMUM  POSITIVE  RATIO  COULD  BE  FOUND 
♦♦♦*  ill  THE  .RCENT  PILOT  OPERATION,  I  .E .  ,  ALL  OF  THE  COEFFICIENTS 


I  - 10 


O  CJ 


C  T£'.  .  ,NEVC  ARE  NONPOSITIVE. 

C 

CHARACTER  KI D'.  1 38)  >24 

COMMON  TT'.  1  0 ,402)  ,TB-;  i  30  »  , TEC  1  30 , 402.-'  ,TL<  130 ,10)  ,TA<10>  ,  INBc  130)  , 

C  TI ( 1 0 , 402)  ,JCOL(402,2>  ,NCOLI  ,NROWI  , NPRIC, NC(  10 )  ,JROUk  130 ,2)  , 

C  NVAR ,NPRIT ,  IND(  402) ,NTR( 130) ,NDV(130> ,NI D ,NWGT ( 1 30 > , LCTR 
COMMON/CHAR/KID 
NDVR=0 
NEVC=0 
VEVC=0  . 

VDVR=10  .QE-*-20 
C 

C  ****  DETERMINE  ENTERING  VARIABLE'S  COLUMN. 

C 

DO  10!  NCR=1 ,NCOLI 

IF  (TI (NPRI C ,NCR) . GE . 0 . )  GO  TO  101 
IF  ( IND(NCR) . EQ . 0 )  GO  TO  101 
IF  (TI (NPRI C, NCR) .GE.VEVC)  GO  TO  101 
NEVC=NCR 

VEVC=TI (NPRIC, NCR) 

101  CONTINUE 
C 

C  ****  IF  NEVC=0 ,  SUBPROBLEM  NPRIC  IS  OPTIMIZED.  RETURN. 

C 

IF  (NEVC.EQ.Q)  GO  TO  10? 

C 

****  DETERMINE  DEPARTING  VARIABLE-' S  ROW. 

DO  105  NR= 1 ,NROUI 

IF  ( TE ( NR , NEVC ) . LE . 0 . )  GO  TO  105 
V=TB(NR)./TE(NR,NEVC) 

IF  (NDVR.EQ.O)  GO  TO  104 
IF  (V-VDVR)  104,102,105 

102  DO  103  NP= 1 , NPRIC 
IF  ( T L ( NR , N P > -T L ( N DV R ,NP> )  105,103,1 0 4 

103  CONTINUE 

104  VDVR=V 
NDVR=NR 

105  CONTINUE 

107  IF  (NDVR.EQ.O,.'  RETURN 
NDVC=INB(NDVR) 

INB(NDVR)=NEVC 

PRINT  5 ,NDVR ,NDVC ,VDVR ,NEVC ,VEVC 
WRITE':  15 ,5  j N D' ) P  , N DV C  . V DV R  , NEV C  , VEV C 
RETURN 

;  F  0  RMAT 5X ,  '  N  DV  R=  '  ,  1 4 , 3X ,  •'  N  DVC=/  ,14, 3X , '  V  DV  R=  '  ,  F 1  0 . 3  , 

1  /\  7X  ,  'NEVC=  '  ,14, 3;< ,  'VEVC=  '  ,F10.3) 

C 

END 

SUBROUTINE  PERM  (NEVC ,NDVR) 

C 

C  ****  SUBROUTINE  PERM  PERFORMS  THE  PIVOT  OPERATION  USING  THE  PIVOT 
C  ELEMENT  IN  COLUMN  NEVC  AND  ROW  NDVR  AND  COMPUTES  THE  NEW  TABLEAU. 

C 

COMMON  TT( 10 ,402) ,TB(130 > ,TE( 1 30 ,402) ,TL( 130 , 10 ) ,TA( 10) , INB( 130) , 


I  - 1 1 


C  TI  <1 0,402)  ,JCOL*:  402,2)  ,NC0LI  ,NR0WI  ,NPRIC,NC(lO  ,  JRCUv 130 ,2-  , 

C  NVAR  jNPRIT ,  IND<  402)  ,NTR(  1  30 .)  ,NDVv  1 30 )  , N I D  ,NWGT '  1  20  •  ,  LCTR 

C. 

C  ****  REPLACE  HEADING  FOR  ROW  NDVR . 

C 

JROW(NDVR , 1 )=JCOL(NEVC , 1 ) 

JROW(NDVR , 2)=JCOL(NEVC ,2) 

C 

C  ****  REPLACE  TL  VECTOR  FOR  ROW  NDVR 
C 

DO  101  NP=1 ,NPRIC 

101  TL(NDVR  ,NP )  =TT  (NP,  NEVC ) 

C 

C  «***  COMPUTE  NEW  TE  ARRAY. 

C 

P I V=TE ( NDVR , NEVC ) 

PI B=T8(NDVR) 

DO  103  NR=l,NROWI 

IF  (NR.EQ.NDVR)  GO  TO  103 
IF  <ABS(TE(NR,NEVC)) .LE. 0.0005)  GOTO  103 
PIX=TE(NR ,NEVC)/PIV 
TB ( NR ) =F IX ( TB (NR ) -P I X*P I B  > 

DO  102  NCR=1 ,NCOLI 

102  te(nr,ncr)=fix(TE(nr,ncr)-te(ndvr,ncr)*pix:> 

103  CONTINUE 

tb(ndvr)=fix(pib/piv:> 

DO  104  NCR=1 ,NCOL I 

104  TE(NDVR,NCR)=FIX(TE(NDVR,NCR)/PIV) 

RETURN 

C 

END 

FUNCTION  FIX(Z) 

C 

C  «***  FUNCTION  FIX  BRINGS  FLOATING  POINT  VALUES  THAT  ARE  WITHIN  l.E-3 
C  ****  OF  AN  INTEGER  TO  THAT  INTEGER. 

C 

FIX=AINT(Z+SIGN(  .5,Z> ) 

IF  (ABS(FIX-Z)  .GT.  l.E-3)  FIX=Z 
C 


END 

SUBROUTINE  POUT 
C 

C  ****  SUBROUTINE  POUT  PREPARES  AND  PRINTS  THE  SOLUTION  INFORMATION. 

C 

CHARACTER  KI D(1 38) *24 

COMMON  TT <  1  0 ,402)  ,TB(130)  ,TE*.  1 30 , 402)  ,TL<  1 30  , 1 0 )  ,TA(10)  ,INB(130) 
C  TI(10 ,402) , JCOL<402,2) ,NCOLI ,NROWI ,NPRIC,NC(  10) , JROW( 130 ,2) , 

C  NVAR ,NPRIT , IND( 402) ,NTR(130) ,NDV(130) ,NI D ,NWGT  < 1 30 ) , LCTR 
COMMON  /CHNG/NCON( 130,10)  ,NTOF (10) 

COMMON/CHAR/KID 

DIMENSION  WOUT (402,4) ,  RLHSL 130,10) 

DIMENSION  D IFF (130) 

OPEN  (11 ,FILE='GPANS' ) 


REWIND  11 
WRITE  (11,122) 

WRITE  (11,122)  NPRIC.NROWI 

w 

C  ***«  OUTPUT  ARRAY  IS  2EROED . 

C 

DO  101  1  =  1  ,402 
DO  101  J=1  ,4 
lo;  WCUT < I , J)=0 . 

C 

C  ****  OUTPUT  ARRAY  IS  FILLED. 

C 

DO  102  NP= 1 ,NPR1 C 
1 0  2  W  0  U ' T  ( N  P  ,  1 ) = F I X  ( T  A  ( N  P  > ) 

DO  103  NR=1 ,NROWI 
I l=JROW(NR , 1 ) 

I 2=JR0W(NR ,2) 

103  WOUT-:  12, 1 1  )=FIX(TB(NR) ) 

C 

C  *-**<■  IF  ALL  PRIORITIES  HAVE  BEEN  INCLUDED,  PRINT  OPT  INAL  SOLUTION. 

C  IF  NOT,  WE  NUST  CALCULATE  VALUES  FOR  REMAINING  TA'S  AND  D-  AND  D  + 

C 

IF  (NPRIC.GE.NPRIT)  GO  TO  114 
NP1=NPRI C+ 1 
DO  113  NP=NP1 (NPRIT 
TA(NP>=0 . 

IF  (NC(MF) . EQ . 0 )  GO  TO  106 
C 

C  ****  READ  IN  THE  GOAL  CONSTRAINTS  ASSIGNED  TO  PRIORITY  N P. 

C 

NCTMP=NC(NP> 

DO  105  NC 1=1 ,NCTNP 
NR=NROWI +NCI 
C 

C-  INPUT  THE  COEFFICIENTS  OF  THE  DECISION  VARIABLES 
C-  AND  RHS  FOR  PRIORITY  ttNPRIC  AND  CONSTRAINT  #NRI 
C 

DO  30  NV=1 ,NTR\NR> 

READ1  1 3 , 6  .>  I  ,  J ,  T  E  I  ,  J > 

IF(I  .NE.NRi  THEN 

PRINT  *,'**  I  <>  NR  **  I =  '  , I , '  NR=',NR,/  J= ' , J 
STOP 
END  IF 

20  CONTINUE 

READ( 13,6) I , J,TB( I > 

6  FORNAT( 21 4, FI  5.9) 

RLHS'INCI  ,NP)  =  0  . 

DO  104  NV=1 ,NVAR 

104  RLHS'INCI  ,NP )  =  RLHS(NC I  ,NP)  +TE\NR ,NV)  *WOUT(NV ,  2) 
DIFF(NCn=TB(NR) -RLHS'INCI  ,NP> 

105  CONTINUE 
C 

C 

C-  AT  PRIORITY  HNPRIC,  INPUT  THE  SUBSCRIPT,  TYPE,  AND 
C-  WEIGHT  OF  EACH  TERM  IN  THE  OBJECTIVE  FUNCTION. 


:  (IF  TERM  IS  POSITIVE  DEV I AT I ONAL ,  TYFE=3) 

S  (IF  TERM  IS  NEGATIVE  DEV I AT I ONAL,  TYPE=4> 

iGo  nttmf=ntof;np) 

DO  1 12  NT=1 .NTTMP 
LCTR=LCTR+ 1 
1 3UB=LCTR 

I TY  P  E =N  D  V  ( NT + N  R  0  W I ) 

WGHT=NWG7 (NT +NROWI ) 

IF  (NC(NP) . EQ . 0 )  GO  TO  111 
NCTMP=NC(NP) 

DO  110  NO  1  =  1 ,NCTMP 

IF  ( ISUB.NE.NCON(NCI ,NP)>  GO  TO  110 
IF  (DIFF(NCI))  107,103,109 
107  IF  ( 3 TYPE .NE .3)  GO  TO  110 

W0UT( I  SUB , 3)  =  -DI FF(NCI > 

103  GO  TO  110 

109  IF  ( I  TYPE .NE  .4)  GO  TO  110 

UCUT ( I  SUB , 4)=DI FF (NCI ) 

110  CONTINUE 

1 1 1  TA ( NP ) =TA(NP ) +WGHT *WOUT ( I  SUB , I TYPE) 

112  CONTINUE 
NROWI=NROUI+NC(NP) 

C 

C  ***<  FILL  IN  THE  OUTPUT  VALUE  FOR  ATTAINMENT  OF  PRIORITY  NP . 
C 

UCUT (NP , 1 )=FIX(TA(NP) > 

113  CONTINUE 
C 

C  **+*  PRINT  OPTIMAL  SOLUTION 
C 

114  WRITE  ( 1 1 ,126) 

WRITE  <11 ,127) 

DO  115  NV= 1 , N I D 

I F ( WOUT  < NV , 2 ) . EQ  .  0 )  GO  TO  115 

IF(NV.LE.NID)  WRITE  (11,7)  NV , K I D ( NV ) , WOUT ( NV , 2 ) 

IF(NV.GT.NID)  WRITE'!  11 ,128)  NV ,WOUT (NV ,2) 

115  CONTINUE 

7  FORMAT <  I  3 , 3.X  ,A24 , 3X  ,F1 5 .4) 

WRITE  <11 ,126) 

WRITE  <11,129) 

DO  1 16  NF=2,NPRIT 

IF  <NC(NP) . EQ . 0 )  GO  TO  116 
NCTMP=NC<NP) 

DO  139  NCO=l  .NCTMP 
N=MCON(NCO,NP) 

WRITE  <11,130 )  NP  ,N,WOUT(N ,3) ,WOUT(N ,4) 

139  CONTINUE 

116  CONTINUE 
J=1 

IF(J.EQ.l)  RETURN 
WRITE  <11,126) 

WRITE  <11,131) 

DO  1 17  NP= 1 ,NPRIT 

WRITE  <11,132)  NP ,WOUT(NP , 1 ) 


117  CONTINUE 
WRITE  <11,123* 

WRITE  (11  ,133' 

WRITE  <11,134; 

I  =MAX  0  N  P  R I T  ,  NVA  R  ,  N  R  ON  I  ) 

DO  121  K= 1  , 1 

IF  (K.GT.NPRIT)  GO  TO  11? 

IF  ( K .  GT  .  NVA  R  >  GOTO  113 

WRITE  <  11,135>  K  ,  < WOUT ( K ,  J )  ,  J=  1  ,4  .■ 

30  TC  121 

118  WRITE  <11,136)  K ,WOUT< K , 1 ) , <UOUT< K , J) , J=3 , 4) 

GO  TO  121 

11*  IF  < K  . GT  . NVA R GO  TO  120 

WRITE  <11,137)  K  ,  (WOUT \  K  ,  J )  ,  J=2 ,4.) 

GO  TO  121 

120  WRITE  (11,133)  K , (WOUT < K , J) , J=3 , 4) 

121  CONTINUE 
WRITE  (11,12a) 

RETURN 

122  FORMAT  (1H1) 

123  FORMAT  (/  3?H  THE  OPTIMIZATION  ENDED  ON  SUBPROBLEM  ,15  /  1 3H  T 

1  HERE  WERE  ,15,  42H  CONSTRAINTS  IN  THE  FINAL  OPTIMAL  TABLEAU.) 

126  FORMAT  (//80(1H*>) 

127  FORMAT  (1H0,  52HTHE  OPTIMAL  SOLUTION  FOR  THE  DECISION  VARIABLES  X< 
1  J)) 

123  FORMAT  (1  HO,  2HX( ,13,  2H)= , FI 5 . 4) 

12?  FORMAT  ( 1  HO ,  25HTHE  GOAL  ACHIEVEMENTS  ARE  //  9H  PRIORITY, 2X ,  1 1 H 
1  GOAL  NUMBER, 2X,  1 6H0VER-ACHI EVEMENT , 2X ,  1  THUNDER-ACHIEVEMENT) 

130  FORMAT  ( 4X , 1 2 , 1  OX , 1 2 , 1  OX , F10 . 4 , 1  OX , FI 0 . 4) 

131  FORMAT  ( 1  HO ,  29HTHE  PRIORITY  ACHIEVEMENTS  ARE  //  9H  PRIORITY, 3X, 
1  11HACHI EVEMENT) 

132  FORMAT  < 4X , 1 2 , 1  OX ,F1 0 . 4) 

133  FORMAT  (1H0,  15H  OUTPUT  SUMMARY) 

134  FORMAT  ( 1  HO ,  9HSUBSCRI PT , 1 IX  ,  3H  A  0PT,7X,  8H  X  OPT  ,  7X  ,  ?H 
1  POS  DEV.6X,  ?H  NEG  DEV  /) 

135  FORMAT  ( 1 8 , ?X , 4F1 5 . 4) 

136  FORMAT  < 1 8 , 7X , FI 5 . 4 , 1 5X , 2F1 5 .4, 

137  FORMAT  (13, 22X , 3F 1 5 . 4 ) 

138  FORMAT  (IS, 37X , 2F1 5 . 4) 


END 

FILMED 

5-85 
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